home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1998-05-21 | 75.1 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 100%
| file
| Emacs/XEmacs v20 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar 9 12|
|00000040| 3a 34 37 3a 34 33 20 31 | 39 39 38 0a 3b 3b 3b 20 |:47:43 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 63 75 73 74 |s-20.3/l|isp/cust|
|000000a0| 6f 6d 2f 63 75 73 2d 65 | 64 69 74 2e 65 6c 0a 3b |om/cus-e|dit.el.;|
|000000b0| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|000000c0| 20 32 30 2e 34 20 22 45 | 6d 65 72 61 6c 64 22 20 | 20.4 "E|merald" |
|000000d0| 58 45 6d 61 63 73 20 20 | 4c 75 63 69 64 2e 0a 3b |XEmacs |Lucid..;|
|000000e0| 3b 3b 20 62 79 74 65 63 | 6f 6d 70 20 76 65 72 73 |;; bytec|omp vers|
|000000f0| 69 6f 6e 20 32 2e 32 35 | 20 58 45 6d 61 63 73 3b |ion 2.25| XEmacs;|
|00000100| 20 32 32 2d 4d 61 72 2d | 39 36 2e 0a 3b 3b 3b 20 | 22-Mar-|96..;;; |
|00000110| 6f 70 74 69 6d 69 7a 61 | 74 69 6f 6e 20 69 73 20 |optimiza|tion is |
|00000120| 6f 6e 2e 0a 3b 3b 3b 20 | 74 68 69 73 20 66 69 6c |on..;;; |this fil|
|00000130| 65 20 75 73 65 73 20 6f | 70 63 6f 64 65 73 20 77 |e uses o|pcodes w|
|00000140| 68 69 63 68 20 64 6f 20 | 6e 6f 74 20 65 78 69 73 |hich do |not exis|
|00000150| 74 20 69 6e 20 45 6d 61 | 63 73 20 31 39 2e 0a 0a |t in Ema|cs 19...|
|00000160| 28 69 66 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(if (and| (boundp|
|00000170| 20 27 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 29 | 'emacs-|version)|
|00000180| 0a 09 20 28 6f 72 20 28 | 61 6e 64 20 28 62 6f 75 |.. (or (|and (bou|
|00000190| 6e 64 70 20 27 65 70 6f | 63 68 3a 3a 76 65 72 73 |ndp 'epo|ch::vers|
|000001a0| 69 6f 6e 29 20 65 70 6f | 63 68 3a 3a 76 65 72 73 |ion) epo|ch::vers|
|000001b0| 69 6f 6e 29 0a 09 20 20 | 20 20 20 28 73 74 72 69 |ion).. | (stri|
|000001c0| 6e 67 2d 6c 65 73 73 70 | 20 65 6d 61 63 73 2d 76 |ng-lessp| emacs-v|
|000001d0| 65 72 73 69 6f 6e 20 22 | 32 30 22 29 29 29 0a 20 |ersion "|20"))). |
|000001e0| 20 20 20 28 65 72 72 6f | 72 20 22 60 63 75 73 2d | (erro|r "`cus-|
|000001f0| 65 64 69 74 2e 65 6c 27 | 20 77 61 73 20 63 6f 6d |edit.el'| was com|
|00000200| 70 69 6c 65 64 20 66 6f | 72 20 45 6d 61 63 73 20 |piled fo|r Emacs |
|00000210| 32 30 22 29 29 0a 0a 28 | 6f 72 20 28 62 6f 75 6e |20"))..(|or (boun|
|00000220| 64 70 20 27 63 75 72 72 | 65 6e 74 2d 6c 6f 61 64 |dp 'curr|ent-load|
|00000230| 2d 6c 69 73 74 29 20 28 | 73 65 74 71 20 63 75 72 |-list) (|setq cur|
|00000240| 72 65 6e 74 2d 6c 6f 61 | 64 2d 6c 69 73 74 20 6e |rent-loa|d-list n|
|00000250| 69 6c 29 29 0a 0a 0a 28 | 62 79 74 65 2d 63 6f 64 |il))...(|byte-cod|
|00000260| 65 20 22 c0 c1 21 88 c0 | c2 21 88 c0 c3 21 88 c0 |e "..!..|.!...!..|
|00000270| c4 21 88 c0 c5 21 88 c6 | c7 c8 c9 23 88 c6 c7 ca |.!...!..|...#....|
|00000280| cb 23 88 cc cd c7 ce 23 | 88 cf d0 d1 d2 d3 d4 25 |.#.....#|.......%|
|00000290| 88 cf d5 d1 d6 d7 d0 25 | 88 cf d8 d1 d9 da db d7 |.......%|........|
|000002a0| d5 26 07 88 cf dc d1 dd | d7 d5 25 88 cf de d1 df |.&......|..%.....|
|000002b0| d7 d5 25 88 cf e0 d1 e1 | d7 d5 25 88 cf e2 d1 e3 |..%.....|..%.....|
|000002c0| d7 d5 25 88 cf e4 d1 e5 | d7 d0 25 88 cf e6 d1 e7 |..%.....|..%.....|
|000002d0| da e8 d7 e4 26 07 88 cf | e9 d1 ea d7 e4 d7 eb 26 |....&...|.......&|
|000002e0| 07 88 cf ec d1 ed d7 d0 | 25 88 cf ee d1 ef d7 ec |........|%.......|
|000002f0| 25 88 cf f0 d1 f1 d7 ee | d7 eb 26 07 88 cf f2 d1 |%.......|..&.....|
|00000300| f3 d7 ee 25 88 cf f4 d1 | f5 d7 ec 25 88 cf f6 d1 |...%....|...%....|
|00000310| f7 d7 ec 25 88 cf f8 d1 | f9 d7 d0 25 88 cf fa d1 |...%....|...%....|
|00000320| fb d7 f8 25 88 cf fc d1 | fd d7 f8 25 88 cf fe d1 |...%....|...%....|
|00000330| ff d7 f8 25 88 cf 81 40 | 00 d1 81 41 00 d7 f8 25 |...%...@|...A...%|
|00000340| 88 cf eb d1 81 42 00 d7 | d0 25 88 cf 81 43 00 d1 |.....B..|.%...C..|
|00000350| 81 44 00 d7 eb 25 88 cf | 81 45 00 d1 81 46 00 d7 |.D...%..|.E...F..|
|00000360| eb 25 88 cf 81 47 00 d1 | 81 48 00 d7 eb 25 88 cf |.%...G..|.H...%..|
|00000370| 81 49 00 d1 81 4a 00 da | 81 4b 00 d7 eb 26 07 88 |.I...J..|.K...&..|
|00000380| cf 81 4c 00 d1 81 4d 00 | d7 d0 25 88 cf 81 4e 00 |..L...M.|..%...N.|
|00000390| d1 81 4f 00 da 81 50 00 | d7 81 4c 00 26 07 88 cf |..O...P.|..L.&...|
|000003a0| 81 51 00 d1 81 52 00 d7 | 81 4c 00 25 88 cf 81 53 |.Q...R..|.L.%...S|
|000003b0| 00 d1 81 54 00 d7 81 4c | 00 25 88 cf 81 55 00 d1 |...T...L|.%...U..|
|000003c0| 81 56 00 d7 81 4c 00 25 | 88 cf 81 57 00 d1 81 58 |.V...L.%|...W...X|
|000003d0| 00 d7 81 4c 00 25 88 cf | 81 59 00 d1 81 5a 00 d7 |...L.%..|.Y...Z..|
|000003e0| 81 4c 00 d7 d5 26 07 88 | cf 81 5b 00 d1 81 5c 5c |.L...&..|..[...\\|
|000003f0| 00 d7 81 4c 00 25 88 cf | 81 5d 00 d1 81 5e 00 d7 |...L.%..|.]...^..|
|00000400| 81 4c 00 25 88 cf 81 5f | 00 d1 81 60 00 d7 d0 25 |.L.%..._|...`...%|
|00000410| 88 cf 81 61 00 d1 81 62 | 00 d7 d0 25 88 cf 81 63 |...a...b|...%...c|
|00000420| 00 d1 81 64 00 d7 d0 25 | 88 cf 81 65 00 d1 81 66 |...d...%|...e...f|
|00000430| 00 d7 81 63 00 25 88 cf | 81 67 00 d1 81 68 00 d7 |...c.%..|.g...h..|
|00000440| d0 25 88 cf 81 69 00 d1 | 81 6a 00 d7 d0 25 88 cf |.%...i..|.j...%..|
|00000450| 81 6b 00 d1 81 6c 00 d7 | d0 25 88 cf 81 6d 00 d1 |.k...l..|.%...m..|
|00000460| 81 6e 00 d7 d0 25 88 cf | cd 81 6f 00 81 70 00 d3 |.n...%..|..o..p..|
|00000470| 81 71 00 d3 81 72 00 81 | 73 00 81 74 00 d7 81 6b |.q...r..|s..t...k|
|00000480| 00 26 0b 88 cf 81 75 00 | d1 81 76 00 d7 cd d7 81 |.&....u.|..v.....|
|00000490| 67 00 26 07 88 cf 81 77 | 00 d1 81 78 00 81 73 00 |g.&....w|...x..s.|
|000004a0| 81 74 00 d7 cd 26 07 88 | cf 81 79 00 d1 81 7a 00 |.t...&..|..y...z.|
|000004b0| 81 73 00 81 74 00 d7 cd | 26 07 88 cf 81 7b 00 d1 |.s..t...|&....{..|
|000004c0| 81 7c 00 81 73 00 81 74 | 00 d7 cd 26 07 88 cf 81 |.|..s..t|...&....|
|000004d0| 7d 00 d1 81 7e 00 d7 d8 | 25 88 cf 81 7f 00 d1 81 |}...~...|%.......|
|000004e0| 80 00 da 81 81 00 d7 81 | 47 00 26 07 88 cf 81 82 |........|G.&.....|
|000004f0| 00 d1 81 83 00 d7 d5 25 | 88 cf 81 84 00 d1 81 85 |.......%|........|
|00000500| 00 d7 81 4c 00 25 88 cf | 81 86 00 d1 81 87 00 d7 |...L.%..|........|
|00000510| d5 25 88 cf 81 88 00 d1 | 81 89 00 d7 d5 25 88 cf |.%......|.....%..|
|00000520| 81 8a 00 d1 81 8b 00 d7 | 81 4c 00 25 88 cf 81 8c |........|.L.%....|
|00000530| 00 d1 81 8d 00 d7 e9 25 | 88 cf 81 8e 00 d1 81 8f |.......%|........|
|00000540| 00 d7 81 4c 00 25 88 cf | 81 90 00 d1 81 91 00 d7 |...L.%..|........|
|00000550| 81 4c 00 25 88 cf 81 92 | 00 d1 81 93 00 d7 81 47 |.L.%....|.......G|
|00000560| 00 25 88 cf 81 94 00 d1 | 81 95 00 d7 eb 25 88 cf |.%......|.....%..|
|00000570| 81 96 00 d1 81 97 00 d7 | 81 4c 00 25 88 cf 81 98 |........|.L.%....|
|00000580| 00 d1 81 99 00 d7 81 4c | 00 25 88 cf e0 d1 81 9a |.......L|.%......|
|00000590| 00 d7 81 4c 00 25 88 cf | 81 9b 00 d1 81 9c 00 d7 |...L.%..|........|
|000005a0| 81 4c 00 25 88 cf 81 9d | 00 d1 81 9e 00 d7 81 61 |.L.%....|.......a|
|000005b0| 00 25 88 cf 81 9f 00 d1 | 81 a0 00 d7 e9 25 88 cf |.%......|.....%..|
|000005c0| 81 a1 00 d1 81 a2 00 d7 | 81 59 00 25 88 cf 81 a3 |........|.Y.%....|
|000005d0| 00 d1 81 a4 00 d7 81 4c | 00 25 87 22 20 5b 72 65 |.......L|.%." [re|
|000005e0| 71 75 69 72 65 20 63 75 | 73 2d 66 61 63 65 20 77 |quire cu|s-face w|
|000005f0| 69 64 2d 65 64 69 74 20 | 65 61 73 79 6d 65 6e 75 |id-edit |easymenu|
|00000600| 20 63 75 73 2d 6c 6f 61 | 64 20 63 75 73 2d 73 74 | cus-loa|d cus-st|
|00000610| 61 72 74 20 70 75 74 20 | 63 75 73 74 6f 6d 2d 64 |art put |custom-d|
|00000620| 65 66 69 6e 65 2d 68 6f | 6f 6b 20 63 75 73 74 6f |efine-ho|ok custo|
|00000630| 6d 2d 74 79 70 65 20 68 | 6f 6f 6b 20 73 74 61 6e |m-type h|ook stan|
|00000640| 64 61 72 64 2d 76 61 6c | 75 65 20 28 6e 69 6c 29 |dard-val|ue (nil)|
|00000650| 20 63 75 73 74 6f 6d 2d | 61 64 64 2d 74 6f 2d 67 | custom-|add-to-g|
|00000660| 72 6f 75 70 20 63 75 73 | 74 6f 6d 69 7a 65 20 63 |roup cus|tomize c|
|00000670| 75 73 74 6f 6d 2d 76 61 | 72 69 61 62 6c 65 20 63 |ustom-va|riable c|
|00000680| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 67 72 |ustom-de|clare-gr|
|00000690| 6f 75 70 20 65 6d 61 63 | 73 20 6e 69 6c 20 22 43 |oup emac|s nil "C|
|000006a0| 75 73 74 6f 6d 69 7a 61 | 74 69 6f 6e 20 6f 66 20 |ustomiza|tion of |
|000006b0| 74 68 65 20 4f 6e 65 20 | 54 72 75 65 20 45 64 69 |the One |True Edi|
|000006c0| 74 6f 72 2e 22 20 3a 6c | 69 6e 6b 20 28 63 75 73 |tor." :l|ink (cus|
|000006d0| 74 6f 6d 2d 6d 61 6e 75 | 61 6c 20 22 28 58 45 6d |tom-manu|al "(XEm|
|000006e0| 61 63 73 29 54 6f 70 22 | 29 20 65 64 69 74 69 6e |acs)Top"|) editin|
|000006f0| 67 20 22 42 61 73 69 63 | 20 74 65 78 74 20 65 64 |g "Basic| text ed|
|00000700| 69 74 69 6e 67 20 66 61 | 63 69 6c 69 74 69 65 73 |iting fa|cilities|
|00000710| 2e 22 20 3a 67 72 6f 75 | 70 20 61 62 62 72 65 76 |." :grou|p abbrev|
|00000720| 20 22 41 62 62 72 65 76 | 69 61 74 69 6f 6e 20 68 | "Abbrev|iation h|
|00000730| 61 6e 64 6c 69 6e 67 2c | 20 74 79 70 69 6e 67 20 |andling,| typing |
|00000740| 73 68 6f 72 74 63 75 74 | 73 2c 20 6d 61 63 72 6f |shortcut|s, macro|
|00000750| 73 2e 22 20 3a 74 61 67 | 20 22 41 62 62 72 65 76 |s." :tag| "Abbrev|
|00000760| 69 61 74 69 6f 6e 73 22 | 20 6d 61 74 63 68 69 6e |iations"| matchin|
|00000770| 67 20 22 56 61 72 69 6f | 75 73 20 73 6f 72 74 73 |g "Vario|us sorts|
|00000780| 20 6f 66 20 73 65 61 72 | 63 68 69 6e 67 20 61 6e | of sear|ching an|
|00000790| 64 20 6d 61 74 63 68 69 | 6e 67 2e 22 20 65 6d 75 |d matchi|ng." emu|
|000007a0| 6c 61 74 69 6f 6e 73 20 | 22 45 6d 75 6c 61 74 69 |lations |"Emulati|
|000007b0| 6f 6e 73 20 6f 66 20 6f | 74 68 65 72 20 65 64 69 |ons of o|ther edi|
|000007c0| 74 6f 72 73 2e 22 20 6d | 6f 75 73 65 20 22 4d 6f |tors." m|ouse "Mo|
|000007d0| 75 73 65 20 73 75 70 70 | 6f 72 74 2e 22 20 6f 75 |use supp|ort." ou|
|000007e0| 74 6c 69 6e 65 73 20 22 | 53 75 70 70 6f 72 74 20 |tlines "|Support |
|000007f0| 66 6f 72 20 68 69 65 72 | 61 72 63 68 69 63 61 6c |for hier|archical|
|00000800| 20 6f 75 74 6c 69 6e 69 | 6e 67 2e 22 20 65 78 74 | outlini|ng." ext|
|00000810| 65 72 6e 61 6c 20 22 49 | 6e 74 65 72 66 61 63 69 |ernal "I|nterfaci|
|00000820| 6e 67 20 74 6f 20 65 78 | 74 65 72 6e 61 6c 20 75 |ng to ex|ternal u|
|00000830| 74 69 6c 69 74 69 65 73 | 2e 22 20 62 69 62 20 22 |tilities|." bib "|
|00000840| 43 6f 64 65 20 72 65 6c | 61 74 65 64 20 74 6f 20 |Code rel|ated to |
|00000850| 74 68 65 20 60 62 69 62 | 27 20 62 69 62 6c 69 6f |the `bib|' biblio|
|00000860| 67 72 61 70 68 79 20 70 | 72 6f 63 65 73 73 6f 72 |graphy p|rocessor|
|00000870| 2e 22 20 22 42 69 62 6c | 69 6f 67 72 61 70 68 79 |." "Bibl|iography|
|00000880| 22 20 70 72 6f 63 65 73 | 73 65 73 20 22 50 72 6f |" proces|ses "Pro|
|00000890| 63 65 73 73 2c 20 73 75 | 62 73 68 65 6c 6c 2c 20 |cess, su|bshell, |
|000008a0| 63 6f 6d 70 69 6c 61 74 | 69 6f 6e 2c 20 61 6e 64 |compilat|ion, and|
|000008b0| 20 6a 6f 62 20 63 6f 6e | 74 72 6f 6c 20 73 75 70 | job con|trol sup|
|000008c0| 70 6f 72 74 2e 22 20 64 | 65 76 65 6c 6f 70 6d 65 |port." d|evelopme|
|000008d0| 6e 74 20 70 72 6f 67 72 | 61 6d 6d 69 6e 67 20 22 |nt progr|amming "|
|000008e0| 53 75 70 70 6f 72 74 20 | 66 6f 72 20 70 72 6f 67 |Support |for prog|
|000008f0| 72 61 6d 6d 69 6e 67 20 | 69 6e 20 6f 74 68 65 72 |ramming |in other|
|00000900| 20 6c 61 6e 67 75 61 67 | 65 73 2e 22 20 6c 61 6e | languag|es." lan|
|00000910| 67 75 61 67 65 73 20 22 | 53 70 65 63 69 61 6c 69 |guages "|Speciali|
|00000920| 7a 65 64 20 6d 6f 64 65 | 73 20 66 6f 72 20 65 64 |zed mode|s for ed|
|00000930| 69 74 69 6e 67 20 70 72 | 6f 67 72 61 6d 6d 69 6e |iting pr|ogrammin|
|00000940| 67 20 6c 61 6e 67 75 61 | 67 65 73 2e 22 20 6c 69 |g langua|ges." li|
|00000950| 73 70 20 22 4c 69 73 70 | 20 73 75 70 70 6f 72 74 |sp "Lisp| support|
|00000960| 2c 20 69 6e 63 6c 75 64 | 69 6e 67 20 45 6d 61 63 |, includ|ing Emac|
|00000970| 73 20 4c 69 73 70 2e 22 | 20 63 20 22 53 75 70 70 |s Lisp."| c "Supp|
|00000980| 6f 72 74 20 66 6f 72 20 | 74 68 65 20 43 20 6c 61 |ort for |the C la|
|00000990| 6e 67 75 61 67 65 20 61 | 6e 64 20 72 65 6c 61 74 |nguage a|nd relat|
|000009a0| 65 64 20 6c 61 6e 67 75 | 61 67 65 73 2e 22 20 74 |ed langu|ages." t|
|000009b0| 6f 6f 6c 73 20 22 50 72 | 6f 67 72 61 6d 6d 69 6e |ools "Pr|ogrammin|
|000009c0| 67 20 74 6f 6f 6c 73 2e | 22 20 6f 6f 70 20 22 53 |g tools.|" oop "S|
|000009d0| 75 70 70 6f 72 74 20 66 | 6f 72 20 6f 62 6a 65 63 |upport f|or objec|
|000009e0| 74 2d 6f 72 69 65 6e 74 | 65 64 20 70 72 6f 67 72 |t-orient|ed progr|
|000009f0| 61 6d 6d 69 6e 67 2e 22 | 20 61 70 70 6c 69 63 61 |amming."| applica|
|00000a00| 74 69 6f 6e 73 20 22 41 | 70 70 6c 69 63 61 74 69 |tions "A|pplicati|
|00000a10| 6f 6e 73 20 77 72 69 74 | 74 65 6e 20 69 6e 20 45 |ons writ|ten in E|
|00000a20| 6d 61 63 73 2e 22 20 63 | 61 6c 65 6e 64 61 72 20 |macs." c|alendar |
|00000a30| 22 43 61 6c 65 6e 64 61 | 72 20 61 6e 64 20 74 69 |"Calenda|r and ti|
|00000a40| 6d 65 20 6d 61 6e 61 67 | 65 6d 65 6e 74 20 73 75 |me manag|ement su|
|00000a50| 70 70 6f 72 74 2e 22 20 | 6d 61 69 6c 20 22 4d 6f |pport." |mail "Mo|
|00000a60| 64 65 73 20 66 6f 72 20 | 65 6c 65 63 74 72 6f 6e |des for |electron|
|00000a70| 69 63 2d 6d 61 69 6c 20 | 68 61 6e 64 6c 69 6e 67 |ic-mail |handling|
|00000a80| 2e 22 20 6e 65 77 73 20 | 22 53 75 70 70 6f 72 74 |." news |"Support|
|00000a90| 20 66 6f 72 20 6e 65 74 | 6e 65 77 73 20 72 65 61 | for net|news rea|
|00000aa0| 64 69 6e 67 20 61 6e 64 | 20 70 6f 73 74 69 6e 67 |ding and| posting|
|00000ab0| 2e 22 20 67 61 6d 65 73 | 20 22 47 61 6d 65 73 2c |." games| "Games,|
|00000ac0| 20 6a 6f 6b 65 73 20 61 | 6e 64 20 61 6d 75 73 65 | jokes a|nd amuse|
|00000ad0| 6d 65 6e 74 73 2e 22 20 | 22 53 75 70 70 6f 72 74 |ments." |"Support|
|00000ae0| 20 66 6f 72 20 66 75 72 | 74 68 65 72 20 64 65 76 | for fur|ther dev|
|00000af0| 65 6c 6f 70 6d 65 6e 74 | 20 6f 66 20 45 6d 61 63 |elopment| of Emac|
|00000b00| 73 2e 22 20 64 6f 63 73 | 20 22 53 75 70 70 6f 72 |s." docs| "Suppor|
|00000b10| 74 20 66 6f 72 20 45 6d | 61 63 73 20 64 6f 63 75 |t for Em|acs docu|
|00000b20| 6d 65 6e 74 61 74 69 6f | 6e 2e 22 20 65 78 74 65 |mentatio|n." exte|
|00000b30| 6e 73 69 6f 6e 73 20 22 | 45 6d 61 63 73 20 4c 69 |nsions "|Emacs Li|
|00000b40| 73 70 20 6c 61 6e 67 75 | 61 67 65 20 65 78 74 65 |sp langu|age exte|
|00000b50| 6e 73 69 6f 6e 73 2e 22 | 20 69 6e 74 65 72 6e 61 |nsions."| interna|
|00000b60| 6c 20 22 43 6f 64 65 20 | 66 6f 72 20 45 6d 61 63 |l "Code |for Emac|
|00000b70| 73 20 69 6e 74 65 72 6e | 61 6c 73 2c 20 62 75 69 |s intern|als, bui|
|00000b80| 6c 64 20 70 72 6f 63 65 | 73 73 2c 20 64 65 66 61 |ld proce|ss, defa|
|00000b90| 75 6c 74 73 2e 22 20 6d | 61 69 6e 74 20 22 4d 61 |ults." m|aint "Ma|
|00000ba0| 69 6e 74 65 6e 61 6e 63 | 65 20 61 69 64 73 20 66 |intenanc|e aids f|
|00000bb0| 6f 72 20 74 68 65 20 45 | 6d 61 63 73 20 64 65 76 |or the E|macs dev|
|00000bc0| 65 6c 6f 70 6d 65 6e 74 | 20 67 72 6f 75 70 2e 22 |elopment| group."|
|00000bd0| 20 22 4d 61 69 6e 74 65 | 6e 61 6e 63 65 22 20 65 | "Mainte|nance" e|
|00000be0| 6e 76 69 72 6f 6e 6d 65 | 6e 74 20 22 46 69 74 74 |nvironme|nt "Fitt|
|00000bf0| 69 6e 67 20 45 6d 61 63 | 73 20 77 69 74 68 20 69 |ing Emac|s with i|
|00000c00| 74 73 20 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 2e 22 |ts envir|onment."|
|00000c10| 20 63 6f 6d 6d 20 22 43 | 6f 6d 6d 75 6e 69 63 61 | comm "C|ommunica|
|00000c20| 74 69 6f 6e 73 2c 20 6e | 65 74 77 6f 72 6b 69 6e |tions, n|etworkin|
|00000c30| 67 2c 20 72 65 6d 6f 74 | 65 20 61 63 63 65 73 73 |g, remot|e access|
|00000c40| 20 74 6f 20 66 69 6c 65 | 73 2e 22 20 22 43 6f 6d | to file|s." "Com|
|00000c50| 6d 75 6e 69 63 61 74 69 | 6f 6e 22 20 68 61 72 64 |municati|on" hard|
|00000c60| 77 61 72 65 20 22 53 75 | 70 70 6f 72 74 20 66 6f |ware "Su|pport fo|
|00000c70| 72 20 69 6e 74 65 72 66 | 61 63 69 6e 67 20 77 69 |r interf|acing wi|
|00000c80| 74 68 20 65 78 6f 74 69 | 63 20 68 61 72 64 77 61 |th exoti|c hardwa|
|00000c90| 72 65 2e 22 20 74 65 72 | 6d 69 6e 61 6c 73 20 22 |re." ter|minals "|
|00000ca0| 53 75 70 70 6f 72 74 20 | 66 6f 72 20 74 65 72 6d |Support |for term|
|00000cb0| 69 6e 61 6c 20 74 79 70 | 65 73 2e 22 20 75 6e 69 |inal typ|es." uni|
|00000cc0| 78 20 22 46 72 6f 6e 74 | 2d 65 6e 64 73 2f 61 73 |x "Front|-ends/as|
|00000cd0| 73 69 73 74 61 6e 74 73 | 20 66 6f 72 2c 20 6f 72 |sistants| for, or|
|00000ce0| 20 65 6d 75 6c 61 74 6f | 72 73 20 6f 66 2c 20 55 | emulato|rs of, U|
|00000cf0| 4e 49 58 20 66 65 61 74 | 75 72 65 73 2e 22 20 76 |NIX feat|ures." v|
|00000d00| 6d 73 20 22 53 75 70 70 | 6f 72 74 20 63 6f 64 65 |ms "Supp|ort code|
|00000d10| 20 66 6f 72 20 76 6d 73 | 2e 22 20 69 31 38 6e 20 | for vms|." i18n |
|00000d20| 22 49 6e 74 65 72 6e 61 | 74 69 6f 6e 61 6c 69 7a |"Interna|tionaliz|
|00000d30| 61 74 69 6f 6e 20 61 6e | 64 20 61 6c 74 65 72 6e |ation an|d altern|
|00000d40| 61 74 65 20 63 68 61 72 | 61 63 74 65 72 2d 73 65 |ate char|acter-se|
|00000d50| 74 20 73 75 70 70 6f 72 | 74 2e 22 20 78 20 22 54 |t suppor|t." x "T|
|00000d60| 68 65 20 58 20 57 69 6e | 64 6f 77 20 73 79 73 74 |he X Win|dow syst|
|00000d70| 65 6d 2e 22 20 66 72 61 | 6d 65 73 20 22 53 75 70 |em." fra|mes "Sup|
|00000d80| 70 6f 72 74 20 66 6f 72 | 20 45 6d 61 63 73 20 66 |port for| Emacs f|
|00000d90| 72 61 6d 65 73 20 61 6e | 64 20 77 69 6e 64 6f 77 |rames an|d window|
|00000da0| 20 73 79 73 74 65 6d 73 | 2e 22 20 64 61 74 61 20 | systems|." data |
|00000db0| 22 53 75 70 70 6f 72 74 | 20 65 64 69 74 69 6e 67 |"Support| editing|
|00000dc0| 20 66 69 6c 65 73 20 6f | 66 20 64 61 74 61 2e 22 | files o|f data."|
|00000dd0| 20 66 69 6c 65 73 20 22 | 53 75 70 70 6f 72 74 20 | files "|Support |
|00000de0| 65 64 69 74 69 6e 67 20 | 66 69 6c 65 73 2e 22 20 |editing |files." |
|00000df0| 77 70 20 22 57 6f 72 64 | 20 70 72 6f 63 65 73 73 |wp "Word| process|
|00000e00| 69 6e 67 2e 22 20 74 65 | 78 20 22 43 6f 64 65 20 |ing." te|x "Code |
|00000e10| 72 65 6c 61 74 65 64 20 | 74 6f 20 74 68 65 20 54 |related |to the T|
|00000e20| 65 58 20 66 6f 72 6d 61 | 74 74 65 72 2e 22 20 66 |eX forma|tter." f|
|00000e30| 61 63 65 73 20 22 53 75 | 70 70 6f 72 74 20 66 6f |aces "Su|pport fo|
|00000e40| 72 20 6d 75 6c 74 69 70 | 6c 65 20 66 6f 6e 74 73 |r multip|le fonts|
|00000e50| 2e 22 20 68 79 70 65 72 | 6d 65 64 69 61 20 22 53 |." hyper|media "S|
|00000e60| 75 70 70 6f 72 74 20 66 | 6f 72 20 6c 69 6e 6b 73 |upport f|or links|
|00000e70| 20 62 65 74 77 65 65 6e | 20 74 65 78 74 20 6f 72 | between| text or|
|00000e80| 20 6f 74 68 65 72 20 6d | 65 64 69 61 20 74 79 70 | other m|edia typ|
|00000e90| 65 73 2e 22 20 68 65 6c | 70 20 22 53 75 70 70 6f |es." hel|p "Suppo|
|00000ea0| 72 74 20 66 6f 72 20 6f | 6e 2d 6c 69 6e 65 20 68 |rt for o|n-line h|
|00000eb0| 65 6c 70 20 73 79 73 74 | 65 6d 73 2e 22 20 6c 6f |elp syst|ems." lo|
|00000ec0| 63 61 6c 20 22 43 6f 64 | 65 20 6c 6f 63 61 6c 20 |cal "Cod|e local |
|00000ed0| 74 6f 20 79 6f 75 72 20 | 73 69 74 65 2e 22 20 28 |to your |site." (|
|00000ee0| 28 77 69 64 67 65 74 73 | 20 63 75 73 74 6f 6d 2d |(widgets| custom-|
|00000ef0| 67 72 6f 75 70 29 29 20 | 22 43 75 73 74 6f 6d 69 |group)) |"Customi|
|00000f00| 7a 61 74 69 6f 6e 20 6f | 66 20 74 68 65 20 43 75 |zation o|f the Cu|
|00000f10| 73 74 6f 6d 69 7a 61 74 | 69 6f 6e 20 73 75 70 70 |stomizat|ion supp|
|00000f20| 6f 72 74 2e 22 20 28 63 | 75 73 74 6f 6d 2d 6d 61 |ort." (c|ustom-ma|
|00000f30| 6e 75 61 6c 20 22 28 63 | 75 73 74 6f 6d 29 54 6f |nual "(c|ustom)To|
|00000f40| 70 22 29 20 28 75 72 6c | 2d 6c 69 6e 6b 20 3a 74 |p") (url|-link :t|
|00000f50| 61 67 20 22 44 65 76 65 | 6c 6f 70 6d 65 6e 74 20 |ag "Deve|lopment |
|00000f60| 50 61 67 65 22 20 22 68 | 74 74 70 3a 2f 2f 77 77 |Page" "h|ttp://ww|
|00000f70| 77 2e 64 69 6e 61 2e 6b | 76 6c 2e 64 6b 2f 7e 61 |w.dina.k|vl.dk/~a|
|00000f80| 62 72 61 68 61 6d 2f 63 | 75 73 74 6f 6d 2f 22 29 |braham/c|ustom/")|
|00000f90| 20 3a 70 72 65 66 69 78 | 20 22 63 75 73 74 6f 6d | :prefix| "custom|
|00000fa0| 2d 22 20 63 75 73 74 6f | 6d 2d 66 61 63 65 73 20 |-" custo|m-faces |
|00000fb0| 22 46 61 63 65 73 20 75 | 73 65 64 20 62 79 20 63 |"Faces u|sed by c|
|00000fc0| 75 73 74 6f 6d 69 7a 65 | 2e 22 20 63 75 73 74 6f |ustomize|." custo|
|00000fd0| 6d 2d 62 72 6f 77 73 65 | 20 22 43 6f 6e 74 72 6f |m-browse| "Contro|
|00000fe0| 6c 20 63 75 73 74 6f 6d | 69 7a 65 20 62 72 6f 77 |l custom|ize brow|
|00000ff0| 73 65 72 2e 22 20 63 75 | 73 74 6f 6d 2d 62 75 66 |ser." cu|stom-buf|
|00001000| 66 65 72 20 22 43 6f 6e | 74 72 6f 6c 20 63 75 73 |fer "Con|trol cus|
|00001010| 74 6f 6d 69 7a 65 20 62 | 75 66 66 65 72 73 2e 22 |tomize b|uffers."|
|00001020| 20 63 75 73 74 6f 6d 2d | 6d 65 6e 75 20 22 43 6f | custom-|menu "Co|
|00001030| 6e 74 72 6f 6c 20 63 75 | 73 74 6f 6d 69 7a 65 20 |ntrol cu|stomize |
|00001040| 6d 65 6e 75 73 2e 22 20 | 61 62 62 72 65 76 2d 6d |menus." |abbrev-m|
|00001050| 6f 64 65 20 22 57 6f 72 | 64 20 61 62 62 72 65 76 |ode "Wor|d abbrev|
|00001060| 69 61 74 69 6f 6e 73 20 | 6d 6f 64 65 2e 22 20 61 |iations |mode." a|
|00001070| 6c 6c 6f 63 20 22 53 74 | 6f 72 61 67 65 20 61 6c |lloc "St|orage al|
|00001080| 6c 6f 63 61 74 69 6f 6e | 20 61 6e 64 20 67 63 20 |location| and gc |
|00001090| 66 6f 72 20 47 4e 55 20 | 45 6d 61 63 73 20 4c 69 |for GNU |Emacs Li|
|000010a0| 73 70 20 69 6e 74 65 72 | 70 72 65 74 65 72 2e 22 |sp inter|preter."|
|000010b0| 20 22 53 74 6f 72 61 67 | 65 20 41 6c 6c 6f 63 61 | "Storag|e Alloca|
|000010c0| 74 69 6f 6e 22 20 75 6e | 64 6f 20 22 55 6e 64 6f |tion" un|do "Undo|
|000010d0| 69 6e 67 20 63 68 61 6e | 67 65 73 20 69 6e 20 62 |ing chan|ges in b|
|000010e0| 75 66 66 65 72 73 2e 22 | 20 6d 6f 64 65 6c 69 6e |uffers."| modelin|
|000010f0| 65 20 22 43 6f 6e 74 65 | 6e 74 20 6f 66 20 74 68 |e "Conte|nt of th|
|00001100| 65 20 6d 6f 64 65 6c 69 | 6e 65 2e 22 20 66 69 6c |e modeli|ne." fil|
|00001110| 6c 20 22 49 6e 64 65 6e | 74 69 6e 67 20 61 6e 64 |l "Inden|ting and|
|00001120| 20 66 69 6c 6c 69 6e 67 | 20 74 65 78 74 2e 22 20 | filling| text." |
|00001130| 65 64 69 74 69 6e 67 2d | 62 61 73 69 63 73 20 22 |editing-|basics "|
|00001140| 4d 6f 73 74 20 62 61 73 | 69 63 20 65 64 69 74 69 |Most bas|ic editi|
|00001150| 6e 67 20 66 61 63 69 6c | 69 74 69 65 73 2e 22 20 |ng facil|ities." |
|00001160| 64 69 73 70 6c 61 79 20 | 22 48 6f 77 20 63 68 61 |display |"How cha|
|00001170| 72 61 63 74 65 72 73 20 | 61 72 65 20 64 69 73 70 |racters |are disp|
|00001180| 6c 61 79 65 64 20 69 6e | 20 62 75 66 66 65 72 73 |layed in| buffers|
|00001190| 2e 22 20 65 78 65 63 75 | 74 65 20 22 45 78 65 63 |." execu|te "Exec|
|000011a0| 75 74 69 6e 67 20 65 78 | 74 65 72 6e 61 6c 20 63 |uting ex|ternal c|
|000011b0| 6f 6d 6d 61 6e 64 73 2e | 22 20 69 6e 73 74 61 6c |ommands.|" instal|
|000011c0| 6c 61 74 69 6f 6e 20 22 | 54 68 65 20 45 6d 61 63 |lation "|The Emac|
|000011d0| 73 20 69 6e 73 74 61 6c | 6c 61 74 69 6f 6e 2e 22 |s instal|lation."|
|000011e0| 20 64 69 72 65 64 20 22 | 44 69 72 65 63 74 6f 72 | dired "|Director|
|000011f0| 79 20 65 64 69 74 69 6e | 67 2e 22 20 6c 69 6d 69 |y editin|g." limi|
|00001200| 74 73 20 22 49 6e 74 65 | 72 6e 61 6c 20 45 6d 61 |ts "Inte|rnal Ema|
|00001210| 63 73 20 6c 69 6d 69 74 | 73 2e 22 20 64 65 62 75 |cs limit|s." debu|
|00001220| 67 20 22 44 65 62 75 67 | 67 69 6e 67 20 45 6d 61 |g "Debug|ging Ema|
|00001230| 63 73 20 69 74 73 65 6c | 66 2e 22 20 6d 69 6e 69 |cs itsel|f." mini|
|00001240| 62 75 66 66 65 72 20 22 | 43 6f 6e 74 72 6f 6c 69 |buffer "|Controli|
|00001250| 6e 67 20 74 68 65 20 62 | 65 68 61 76 69 6f 75 72 |ng the b|ehaviour|
|00001260| 20 6f 66 20 74 68 65 20 | 6d 69 6e 69 62 75 66 66 | of the |minibuff|
|00001270| 65 72 2e 22 20 6b 65 79 | 62 6f 61 72 64 20 22 49 |er." key|board "I|
|00001280| 6e 70 75 74 20 66 72 6f | 6d 20 74 68 65 20 6b 65 |nput fro|m the ke|
|00001290| 79 62 6f 61 72 64 2e 22 | 20 22 49 6e 70 75 74 20 |yboard."| "Input |
|000012a0| 66 72 6f 6d 20 74 68 65 | 20 6d 6f 75 73 65 2e 22 |from the| mouse."|
|000012b0| 20 6d 65 6e 75 20 22 49 | 6e 70 75 74 20 66 72 6f | menu "I|nput fro|
|000012c0| 6d 20 74 68 65 20 6d 65 | 6e 75 73 2e 22 20 61 75 |m the me|nus." au|
|000012d0| 74 6f 2d 73 61 76 65 20 | 22 50 72 65 76 65 6e 74 |to-save |"Prevent|
|000012e0| 69 6e 67 20 61 63 63 69 | 64 65 6e 74 69 61 6c 20 |ing acci|dential |
|000012f0| 6c 6f 73 73 20 6f 66 20 | 64 61 74 61 2e 22 20 70 |loss of |data." p|
|00001300| 72 6f 63 65 73 73 65 73 | 2d 62 61 73 69 63 73 20 |rocesses|-basics |
|00001310| 22 42 61 73 69 63 20 73 | 74 75 66 66 20 64 65 61 |"Basic s|tuff dea|
|00001320| 6c 69 6e 67 20 77 69 74 | 68 20 70 72 6f 63 65 73 |ling wit|h proces|
|00001330| 73 65 73 2e 22 20 6d 75 | 6c 65 20 22 4d 75 6c 65 |ses." mu|le "Mule|
|00001340| 20 58 45 6d 61 63 73 20 | 69 6e 74 65 72 6e 61 74 | XEmacs |internat|
|00001350| 69 6f 6e 61 6c 69 7a 61 | 74 69 6f 6e 2e 22 20 77 |ionaliza|tion." w|
|00001360| 69 6e 64 6f 77 73 20 22 | 57 69 6e 64 6f 77 73 20 |indows "|Windows |
|00001370| 77 69 74 68 69 6e 20 61 | 20 66 72 61 6d 65 2e 22 |within a| frame."|
|00001380| 5d 20 31 32 29 0a 23 40 | 34 30 20 51 75 6f 74 65 |] 12).#@|40 Quote|
|00001390| 20 53 45 58 50 20 69 66 | 66 20 69 74 20 69 73 20 | SEXP if|f it is |
|000013a0| 6e 6f 74 20 73 65 6c 66 | 20 71 75 6f 74 69 6e 67 |not self| quoting|
|000013b0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 75 |...(defa|lias 'cu|
|000013c0| 73 74 6f 6d 2d 71 75 6f | 74 65 20 23 5b 28 73 65 |stom-quo|te #[(se|
|000013d0| 78 70 29 20 22 08 c1 73 | ac 98 c2 08 21 ac 93 08 |xp) "..s|....!...|
|000013e0| a2 c3 61 ac 8d 08 3b ac | 89 08 a7 ac 85 c4 08 21 |..a...;.|.......!|
|000013f0| ab 82 08 87 c5 08 44 87 | 22 20 5b 73 65 78 70 20 |......D.|" [sexp |
|00001400| 28 74 20 6e 69 6c 29 20 | 6b 65 79 77 6f 72 64 70 |(t nil) |keywordp|
|00001410| 20 6c 61 6d 62 64 61 20 | 63 68 61 72 61 63 74 65 | lambda |characte|
|00001420| 72 70 20 71 75 6f 74 65 | 5d 20 32 20 28 23 24 20 |rp quote|] 2 (#$ |
|00001430| 2e 20 35 30 30 33 29 5d | 29 0a 23 40 31 39 34 20 |. 5003)]|).#@194 |
|00001440| 49 66 20 52 45 47 45 58 | 50 20 69 73 20 61 20 73 |If REGEX|P is a s|
|00001450| 74 72 69 6e 67 2c 20 73 | 70 6c 69 74 20 69 74 20 |tring, s|plit it |
|00001460| 74 6f 20 61 20 6c 69 73 | 74 20 61 74 20 60 5c 7c |to a lis|t at `\||
|00001470| 27 2e 0a 59 6f 75 20 63 | 61 6e 20 67 65 74 20 74 |'..You c|an get t|
|00001480| 68 65 20 6f 72 69 67 69 | 6e 61 6c 20 62 61 63 6b |he origi|nal back|
|00001490| 20 77 69 74 68 20 66 72 | 6f 6d 20 74 68 65 20 72 | with fr|om the r|
|000014a0| 65 73 75 6c 74 20 77 69 | 74 68 3a 0a 20 20 28 6d |esult wi|th:. (m|
|000014b0| 61 70 63 6f 6e 63 61 74 | 20 27 69 64 65 6e 74 69 |apconcat| 'identi|
|000014c0| 74 79 20 72 65 73 75 6c | 74 20 22 5c 7c 22 29 0a |ty resul|t "\|").|
|000014d0| 0a 49 46 20 52 45 47 45 | 58 50 20 69 73 20 6e 6f |.IF REGE|XP is no|
|000014e0| 74 20 61 20 73 74 72 69 | 6e 67 2c 20 72 65 74 75 |t a stri|ng, retu|
|000014f0| 72 6e 20 69 74 20 75 6e | 63 68 61 6e 67 65 64 2e |rn it un|changed.|
|00001500| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 75 73 |..(defal|ias 'cus|
|00001510| 74 6f 6d 2d 73 70 6c 69 | 74 2d 72 65 67 65 78 70 |tom-spli|t-regexp|
|00001520| 2d 6d 61 79 62 65 20 23 | 5b 28 72 65 67 65 78 70 |-maybe #|[(regexp|
|00001530| 29 20 22 08 3b ab 85 c1 | 08 c2 5c 22 87 08 87 22 |) ".;...|..\"..."|
|00001540| 20 5b 72 65 67 65 78 70 | 20 73 70 6c 69 74 2d 73 | [regexp| split-s|
|00001550| 74 72 69 6e 67 20 22 5c | 5c 5c 5c 7c 22 5d 20 33 |tring "\|\\\|"] 3|
|00001560| 20 28 23 24 20 2e 20 35 | 31 38 34 29 5d 29 0a 23 | (#$ . 5|184)]).#|
|00001570| 40 31 31 30 20 50 72 6f | 6d 70 74 20 66 6f 72 20 |@110 Pro|mpt for |
|00001580| 61 20 76 61 72 69 61 62 | 6c 65 2c 20 64 65 66 61 |a variab|le, defa|
|00001590| 75 6c 74 69 6e 67 20 74 | 6f 20 74 68 65 20 76 61 |ulting t|o the va|
|000015a0| 72 69 61 62 6c 65 20 61 | 74 20 70 6f 69 6e 74 2e |riable a|t point.|
|000015b0| 0a 52 65 74 75 72 6e 20 | 61 20 6c 69 73 74 20 73 |.Return |a list s|
|000015c0| 75 69 74 61 62 6c 65 20 | 66 6f 72 20 75 73 65 20 |uitable |for use |
|000015d0| 69 6e 20 60 69 6e 74 65 | 72 61 63 74 69 76 65 27 |in `inte|ractive'|
|000015e0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 75 |...(defa|lias 'cu|
|000015f0| 73 74 6f 6d 2d 76 61 72 | 69 61 62 6c 65 2d 70 72 |stom-var|iable-pr|
|00001600| 6f 6d 70 74 20 23 5b 6e | 69 6c 20 22 c0 20 c1 c2 |ompt #[n|il ". ..|
|00001610| 1b 1c 1d c6 0d 39 ab 86 | c7 c8 0d 5c 22 aa 81 c9 |.....9..|...\"...|
|00001620| 0e 5c 6e cb 23 89 13 cc | 6b ab 87 0d 39 ad 86 0d |.\n.#...|k...9...|
|00001630| aa 83 cd 0b 21 2b 43 87 | 22 20 5b 76 61 72 69 61 |....!+C.|" [varia|
|00001640| 62 6c 65 2d 61 74 2d 70 | 6f 69 6e 74 20 74 20 6e |ble-at-p|oint t n|
|00001650| 69 6c 20 76 61 6c 20 65 | 6e 61 62 6c 65 2d 72 65 |il val e|nable-re|
|00001660| 63 75 72 73 69 76 65 2d | 6d 69 6e 69 62 75 66 66 |cursive-|minibuff|
|00001670| 65 72 73 20 76 20 63 6f | 6d 70 6c 65 74 69 6e 67 |ers v co|mpleting|
|00001680| 2d 72 65 61 64 20 66 6f | 72 6d 61 74 20 22 43 75 |-read fo|rmat "Cu|
|00001690| 73 74 6f 6d 69 7a 65 20 | 76 61 72 69 61 62 6c 65 |stomize |variable|
|000016a0| 3a 20 28 64 65 66 61 75 | 6c 74 20 25 73 29 20 22 |: (defau|lt %s) "|
|000016b0| 20 22 43 75 73 74 6f 6d | 69 7a 65 20 76 61 72 69 | "Custom|ize vari|
|000016c0| 61 62 6c 65 3a 20 22 20 | 6f 62 61 72 72 61 79 20 |able: " |obarray |
|000016d0| 23 5b 28 73 79 6d 62 6f | 6c 29 20 22 c0 09 21 ad |#[(symbo|l) "..!.|
|000016e0| 88 09 c2 4e ae 83 c3 09 | 21 87 22 20 5b 62 6f 75 |...N....|!." [bou|
|000016f0| 6e 64 70 20 73 79 6d 62 | 6f 6c 20 63 75 73 74 6f |ndp symb|ol custo|
|00001700| 6d 2d 74 79 70 65 20 75 | 73 65 72 2d 76 61 72 69 |m-type u|ser-vari|
|00001710| 61 62 6c 65 2d 70 5d 20 | 32 5d 20 22 22 20 69 6e |able-p] |2] "" in|
|00001720| 74 65 72 6e 5d 20 35 20 | 28 23 24 20 2e 20 35 34 |tern] 5 |(#$ . 54|
|00001730| 39 33 29 5d 29 0a 23 40 | 32 39 20 52 65 61 64 20 |93)]).#@|29 Read |
|00001740| 67 72 6f 75 70 20 66 72 | 6f 6d 20 6d 69 6e 69 62 |group fr|om minib|
|00001750| 75 66 66 65 72 2e 1f 0a | 28 64 65 66 61 6c 69 61 |uffer...|(defalia|
|00001760| 73 20 27 63 75 73 74 6f | 6d 2d 67 72 6f 75 70 2d |s 'custo|m-group-|
|00001770| 70 72 6f 6d 70 74 20 23 | 5b 28 70 72 6f 6d 70 74 |prompt #|[(prompt|
|00001780| 29 20 22 c0 19 c2 0b 0c | c5 c0 24 29 43 87 22 20 |) ".....|..$)C." |
|00001790| 5b 74 20 63 6f 6d 70 6c | 65 74 69 6f 6e 2d 69 67 |[t compl|etion-ig|
|000017a0| 6e 6f 72 65 2d 63 61 73 | 65 20 63 6f 6d 70 6c 65 |nore-cas|e comple|
|000017b0| 74 69 6e 67 2d 72 65 61 | 64 20 70 72 6f 6d 70 74 |ting-rea|d prompt|
|000017c0| 20 6f 62 61 72 72 61 79 | 20 23 5b 28 73 79 6d 62 | obarray| #[(symb|
|000017d0| 6f 6c 29 20 22 08 c1 4e | ae 83 08 c2 4e 87 22 20 |ol) "..N|....N." |
|000017e0| 5b 73 79 6d 62 6f 6c 20 | 63 75 73 74 6f 6d 2d 67 |[symbol |custom-g|
|000017f0| 72 6f 75 70 20 63 75 73 | 74 6f 6d 2d 6c 6f 61 64 |roup cus|tom-load|
|00001800| 73 5d 20 32 5d 5d 20 35 | 20 28 23 24 20 2e 20 35 |s] 2]] 5| (#$ . 5|
|00001810| 39 34 37 29 5d 29 0a 23 | 40 31 37 33 20 43 6f 6e |947)]).#|@173 Con|
|00001820| 76 65 72 74 20 4d 45 4e | 55 20 74 6f 20 74 68 65 |vert MEN|U to the|
|00001830| 20 66 6f 72 6d 20 75 73 | 65 64 20 62 79 20 60 77 | form us|ed by `w|
|00001840| 69 64 67 65 74 2d 63 68 | 6f 6f 73 65 27 2e 0a 4d |idget-ch|oose'..M|
|00001850| 45 4e 55 20 73 68 6f 75 | 6c 64 20 62 65 20 69 6e |ENU shou|ld be in|
|00001860| 20 74 68 65 20 73 61 6d | 65 20 66 6f 72 6d 61 74 | the sam|e format|
|00001870| 20 61 73 20 60 63 75 73 | 74 6f 6d 2d 76 61 72 69 | as `cus|tom-vari|
|00001880| 61 62 6c 65 2d 6d 65 6e | 75 27 2e 0a 57 49 44 47 |able-men|u'..WIDG|
|00001890| 45 54 20 69 73 20 74 68 | 65 20 77 69 64 67 65 74 |ET is th|e widget|
|000018a0| 20 74 6f 20 61 70 70 6c | 79 20 74 68 65 20 66 69 | to appl|y the fi|
|000018b0| 6c 74 65 72 20 65 6e 74 | 72 69 65 73 20 6f 66 20 |lter ent|ries of |
|000018c0| 4d 45 4e 55 20 6f 6e 2e | 1f 0a 28 64 65 66 61 6c |MENU on.|..(defal|
|000018d0| 69 61 73 20 27 63 75 73 | 74 6f 6d 2d 6d 65 6e 75 |ias 'cus|tom-menu|
|000018e0| 2d 66 69 6c 74 65 72 20 | 23 5b 28 6d 65 6e 75 20 |-filter |#[(menu |
|000018f0| 77 69 64 67 65 74 29 20 | 22 c0 89 89 89 89 19 1a |widget) |".......|
|00001900| 1b 1c 1d 0e 06 ab ab 0e | 06 40 89 14 40 13 0c 41 |........|.@..@..A|
|00001910| 40 12 c7 0c 38 11 0e 06 | 41 16 06 09 ab 86 09 0e |@...8...|A.......|
|00001920| 08 21 ab 88 0b 5c 6e 42 | 0d 42 15 aa 57 0b 0d 42 |.!...\nB|.B..W..B|
|00001930| 15 aa 51 0d 9f 2d 87 22 | 20 5b 6e 69 6c 20 66 69 |..Q..-."| [nil fi|
|00001940| 6c 74 65 72 20 61 63 74 | 69 6f 6e 20 6e 61 6d 65 |lter act|ion name|
|00001950| 20 63 75 72 72 65 6e 74 | 20 72 65 73 75 6c 74 20 | current| result |
|00001960| 6d 65 6e 75 20 32 20 77 | 69 64 67 65 74 5d 20 36 |menu 2 w|idget] 6|
|00001970| 20 28 23 24 20 2e 20 36 | 31 37 33 29 5d 29 0a 23 | (#$ . 6|173)]).#|
|00001980| 40 36 33 20 4c 69 73 74 | 20 6f 66 20 70 72 65 66 |@63 List| of pref|
|00001990| 69 78 65 73 20 74 68 61 | 74 20 73 68 6f 75 6c 64 |ixes tha|t should|
|000019a0| 20 62 65 20 69 67 6e 6f | 72 65 64 20 62 79 20 60 | be igno|red by `|
|000019b0| 63 75 73 74 6f 6d 2d 75 | 6e 6c 69 73 70 69 66 79 |custom-u|nlispify|
|000019c0| 27 1f 0a 28 64 65 66 76 | 61 72 20 63 75 73 74 6f |'..(defv|ar custo|
|000019d0| 6d 2d 70 72 65 66 69 78 | 2d 6c 69 73 74 20 6e 69 |m-prefix|-list ni|
|000019e0| 6c 20 28 23 24 20 2e 20 | 36 35 33 32 29 29 0a 28 |l (#$ . |6532)).(|
|000019f0| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|00001a00| 61 72 69 61 62 6c 65 20 | 27 63 75 73 74 6f 6d 2d |ariable |'custom-|
|00001a10| 75 6e 6c 69 73 70 69 66 | 79 2d 6d 65 6e 75 2d 65 |unlispif|y-menu-e|
|00001a20| 6e 74 72 69 65 73 20 27 | 74 20 22 44 69 73 70 6c |ntries '|t "Displ|
|00001a30| 61 79 20 6d 65 6e 75 20 | 65 6e 74 72 69 65 73 20 |ay menu |entries |
|00001a40| 61 73 20 77 6f 72 64 73 | 20 69 6e 73 74 65 61 64 |as words| instead|
|00001a50| 20 6f 66 20 73 79 6d 62 | 6f 6c 73 20 69 66 20 6e | of symb|ols if n|
|00001a60| 6f 6e 20 6e 69 6c 2e 22 | 20 3a 67 72 6f 75 70 20 |on nil."| :group |
|00001a70| 27 63 75 73 74 6f 6d 2d | 6d 65 6e 75 20 3a 74 79 |'custom-|menu :ty|
|00001a80| 70 65 20 27 62 6f 6f 6c | 65 61 6e 29 0a 28 63 75 |pe 'bool|ean).(cu|
|00001a90| 73 74 6f 6d 2d 64 65 63 | 6c 61 72 65 2d 76 61 72 |stom-dec|lare-var|
|00001aa0| 69 61 62 6c 65 20 27 63 | 75 73 74 6f 6d 2d 75 6e |iable 'c|ustom-un|
|00001ab0| 6c 69 73 70 69 66 79 2d | 72 65 6d 6f 76 65 2d 70 |lispify-|remove-p|
|00001ac0| 72 65 66 69 78 65 73 20 | 27 74 20 22 4e 6f 6e 2d |refixes |'t "Non-|
|00001ad0| 6e 69 6c 20 6d 65 61 6e | 73 20 72 65 6d 6f 76 65 |nil mean|s remove|
|00001ae0| 20 67 72 6f 75 70 20 70 | 72 65 66 69 78 65 73 20 | group p|refixes |
|00001af0| 66 72 6f 6d 20 6f 70 74 | 69 6f 6e 20 6e 61 6d 65 |from opt|ion name|
|00001b00| 73 20 69 6e 20 62 75 66 | 66 65 72 73 20 61 6e 64 |s in buf|fers and|
|00001b10| 20 6d 65 6e 75 73 2e 22 | 20 3a 67 72 6f 75 70 20 | menus."| :group |
|00001b20| 27 63 75 73 74 6f 6d 2d | 6d 65 6e 75 20 3a 74 79 |'custom-|menu :ty|
|00001b30| 70 65 20 27 62 6f 6f 6c | 65 61 6e 29 0a 23 40 33 |pe 'bool|ean).#@3|
|00001b40| 35 20 43 6f 6e 76 65 72 | 74 20 73 79 6d 62 6f 6c |5 Conver|t symbol|
|00001b50| 20 69 6e 74 6f 20 61 20 | 6d 65 6e 75 20 65 6e 74 | into a |menu ent|
|00001b60| 72 79 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ry...(de|falias '|
|00001b70| 63 75 73 74 6f 6d 2d 75 | 6e 6c 69 73 70 69 66 79 |custom-u|nlispify|
|00001b80| 2d 6d 65 6e 75 2d 65 6e | 74 72 79 20 23 5b 28 73 |-menu-en|try #[(s|
|00001b90| 79 6d 62 6f 6c 20 26 6f | 70 74 69 6f 6e 61 6c 20 |ymbol &o|ptional |
|00001ba0| 6e 6f 2d 73 75 66 66 69 | 78 29 20 22 08 ac 84 c1 |no-suffi|x) "....|
|00001bb0| 5c 6e 21 87 5c 6e c3 4e | ab 8d 0c ab 84 5c 6e c3 |\n!.\n.N|.....\n.|
|00001bc0| 4e 87 5c 6e c3 4e c5 50 | 87 72 c6 c7 21 71 88 c8 |N.\n.N.P|.r..!q..|
|00001bd0| 20 88 c9 5c 6e 70 5c 22 | 88 65 62 88 5c 6e ca 4e | ..\np\"|.eb.\n.N|
|00001be0| cb 61 ab 90 cc cd ce cf | 23 ab 89 d0 d1 cf 89 23 |.a......|#......#|
|00001bf0| 88 65 62 88 0e 12 ab ae | 0e 13 ce 1e 14 1e 15 0e |.eb.....|........|
|00001c00| 15 ab a2 0e 15 40 16 14 | d6 0e 14 60 0e 14 47 5c |.....@..|...`..G\|
|00001c10| 5c cf 23 ab 89 ce 16 15 | 65 60 7c 88 aa 62 0e 15 |\.#.....|e`|..b..|
|00001c20| 41 89 16 15 ac 5e 2a d7 | 65 64 d8 d9 cf 25 88 da |A....^*.|ed...%..|
|00001c30| 65 64 5c 22 88 0c ac 86 | 64 62 88 c5 63 88 db 20 |ed\"....|db..c.. |
|00001c40| 29 87 22 20 5b 63 75 73 | 74 6f 6d 2d 75 6e 6c 69 |)." [cus|tom-unli|
|00001c50| 73 70 69 66 79 2d 6d 65 | 6e 75 2d 65 6e 74 72 69 |spify-me|nu-entri|
|00001c60| 65 73 20 73 79 6d 62 6f | 6c 2d 6e 61 6d 65 20 73 |es symbo|l-name s|
|00001c70| 79 6d 62 6f 6c 20 63 75 | 73 74 6f 6d 2d 74 61 67 |ymbol cu|stom-tag|
|00001c80| 20 6e 6f 2d 73 75 66 66 | 69 78 20 22 2e 2e 2e 22 | no-suff|ix "..."|
|00001c90| 20 67 65 74 2d 62 75 66 | 66 65 72 2d 63 72 65 61 | get-buf|fer-crea|
|00001ca0| 74 65 20 22 20 2a 43 75 | 73 74 6f 6d 2d 57 6f 72 |te " *Cu|stom-Wor|
|00001cb0| 6b 2a 22 20 65 72 61 73 | 65 2d 62 75 66 66 65 72 |k*" eras|e-buffer|
|00001cc0| 20 70 72 69 6e 63 20 63 | 75 73 74 6f 6d 2d 74 79 | princ c|ustom-ty|
|00001cd0| 70 65 20 62 6f 6f 6c 65 | 61 6e 20 72 65 2d 73 65 |pe boole|an re-se|
|00001ce0| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 2d 70 |arch-for|ward "-p|
|00001cf0| 5c 5c 27 22 20 6e 69 6c | 20 74 20 72 65 70 6c 61 |\\'" nil| t repla|
|00001d00| 63 65 2d 6d 61 74 63 68 | 20 22 22 20 63 75 73 74 |ce-match| "" cust|
|00001d10| 6f 6d 2d 75 6e 6c 69 73 | 70 69 66 79 2d 72 65 6d |om-unlis|pify-rem|
|00001d20| 6f 76 65 2d 70 72 65 66 | 69 78 65 73 20 63 75 73 |ove-pref|ixes cus|
|00001d30| 74 6f 6d 2d 70 72 65 66 | 69 78 2d 6c 69 73 74 20 |tom-pref|ix-list |
|00001d40| 70 72 65 66 69 78 20 70 | 72 65 66 69 78 65 73 20 |prefix p|refixes |
|00001d50| 73 65 61 72 63 68 2d 66 | 6f 72 77 61 72 64 20 73 |search-f|orward s|
|00001d60| 75 62 73 74 2d 63 68 61 | 72 2d 69 6e 2d 72 65 67 |ubst-cha|r-in-reg|
|00001d70| 69 6f 6e 20 3f 5c 2d 20 | 3f 5c 20 20 63 61 70 69 |ion ?\- |?\ capi|
|00001d80| 74 61 6c 69 7a 65 2d 72 | 65 67 69 6f 6e 20 62 75 |talize-r|egion bu|
|00001d90| 66 66 65 72 2d 73 74 72 | 69 6e 67 5d 20 37 20 28 |ffer-str|ing] 7 (|
|00001da0| 23 24 20 2e 20 36 39 37 | 38 29 5d 29 0a 28 63 75 |#$ . 697|8)]).(cu|
|00001db0| 73 74 6f 6d 2d 64 65 63 | 6c 61 72 65 2d 76 61 72 |stom-dec|lare-var|
|00001dc0| 69 61 62 6c 65 20 27 63 | 75 73 74 6f 6d 2d 75 6e |iable 'c|ustom-un|
|00001dd0| 6c 69 73 70 69 66 79 2d | 74 61 67 2d 6e 61 6d 65 |lispify-|tag-name|
|00001de0| 73 20 27 74 20 22 44 69 | 73 70 6c 61 79 20 74 61 |s 't "Di|splay ta|
|00001df0| 67 20 6e 61 6d 65 73 20 | 61 73 20 77 6f 72 64 73 |g names |as words|
|00001e00| 20 69 6e 73 74 65 61 64 | 20 6f 66 20 73 79 6d 62 | instead| of symb|
|00001e10| 6f 6c 73 20 69 66 20 6e | 6f 6e 20 6e 69 6c 2e 22 |ols if n|on nil."|
|00001e20| 20 3a 67 72 6f 75 70 20 | 27 63 75 73 74 6f 6d 2d | :group |'custom-|
|00001e30| 62 75 66 66 65 72 20 3a | 74 79 70 65 20 27 62 6f |buffer :|type 'bo|
|00001e40| 6f 6c 65 61 6e 29 0a 23 | 40 33 35 20 43 6f 6e 76 |olean).#|@35 Conv|
|00001e50| 65 72 74 20 73 79 6d 62 | 6f 6c 20 69 6e 74 6f 20 |ert symb|ol into |
|00001e60| 61 20 6d 65 6e 75 20 65 | 6e 74 72 79 2e 1f 0a 28 |a menu e|ntry...(|
|00001e70| 64 65 66 61 6c 69 61 73 | 20 27 63 75 73 74 6f 6d |defalias| 'custom|
|00001e80| 2d 75 6e 6c 69 73 70 69 | 66 79 2d 74 61 67 2d 6e |-unlispi|fy-tag-n|
|00001e90| 61 6d 65 20 23 5b 28 73 | 79 6d 62 6f 6c 29 20 22 |ame #[(s|ymbol) "|
|00001ea0| 08 19 c2 0b c4 5c 22 29 | 87 22 20 5b 63 75 73 74 |.....\")|." [cust|
|00001eb0| 6f 6d 2d 75 6e 6c 69 73 | 70 69 66 79 2d 74 61 67 |om-unlis|pify-tag|
|00001ec0| 2d 6e 61 6d 65 73 20 63 | 75 73 74 6f 6d 2d 75 6e |-names c|ustom-un|
|00001ed0| 6c 69 73 70 69 66 79 2d | 6d 65 6e 75 2d 65 6e 74 |lispify-|menu-ent|
|00001ee0| 72 69 65 73 20 63 75 73 | 74 6f 6d 2d 75 6e 6c 69 |ries cus|tom-unli|
|00001ef0| 73 70 69 66 79 2d 6d 65 | 6e 75 2d 65 6e 74 72 79 |spify-me|nu-entry|
|00001f00| 20 73 79 6d 62 6f 6c 20 | 74 5d 20 33 20 28 23 24 | symbol |t] 3 (#$|
|00001f10| 20 2e 20 37 37 35 36 29 | 5d 29 0a 28 64 65 66 61 | . 7756)|]).(defa|
|00001f20| 6c 69 61 73 20 27 63 75 | 73 74 6f 6d 2d 70 72 65 |lias 'cu|stom-pre|
|00001f30| 66 69 78 2d 61 64 64 20 | 23 5b 28 73 79 6d 62 6f |fix-add |#[(symbo|
|00001f40| 6c 20 70 72 65 66 69 78 | 65 73 29 20 22 08 c1 4e |l prefix|es) "..N|
|00001f50| ae 85 c2 08 21 c3 50 0c | 42 87 22 20 5b 73 79 6d |....!.P.|B." [sym|
|00001f60| 62 6f 6c 20 63 75 73 74 | 6f 6d 2d 70 72 65 66 69 |bol cust|om-prefi|
|00001f70| 78 20 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 20 22 2d |x symbol|-name "-|
|00001f80| 22 20 70 72 65 66 69 78 | 65 73 5d 20 32 5d 29 0a |" prefix|es] 2]).|
|00001f90| 28 63 75 73 74 6f 6d 2d | 64 65 63 6c 61 72 65 2d |(custom-|declare-|
|00001fa0| 76 61 72 69 61 62 6c 65 | 20 27 63 75 73 74 6f 6d |variable| 'custom|
|00001fb0| 2d 67 75 65 73 73 2d 6e | 61 6d 65 2d 61 6c 69 73 |-guess-n|ame-alis|
|00001fc0| 74 20 27 27 28 28 22 2d | 70 5c 5c 27 22 20 62 6f |t ''(("-|p\\'" bo|
|00001fd0| 6f 6c 65 61 6e 29 20 28 | 22 2d 68 6f 6f 6b 73 3f |olean) (|"-hooks?|
|00001fe0| 5c 5c 27 22 20 68 6f 6f | 6b 29 20 28 22 2d 66 61 |\\'" hoo|k) ("-fa|
|00001ff0| 63 65 5c 5c 27 22 20 66 | 61 63 65 29 20 28 22 2d |ce\\'" f|ace) ("-|
|00002000| 66 69 6c 65 5c 5c 27 22 | 20 66 69 6c 65 29 20 28 |file\\'"| file) (|
|00002010| 22 2d 66 75 6e 63 74 69 | 6f 6e 5c 5c 27 22 20 66 |"-functi|on\\'" f|
|00002020| 75 6e 63 74 69 6f 6e 29 | 20 28 22 2d 66 75 6e 63 |unction)| ("-func|
|00002030| 74 69 6f 6e 73 5c 5c 27 | 22 20 28 72 65 70 65 61 |tions\\'|" (repea|
|00002040| 74 20 66 75 6e 63 74 69 | 6f 6e 29 29 20 28 22 2d |t functi|on)) ("-|
|00002050| 6c 69 73 74 5c 5c 27 22 | 20 28 72 65 70 65 61 74 |list\\'"| (repeat|
|00002060| 20 73 65 78 70 29 29 20 | 28 22 2d 61 6c 69 73 74 | sexp)) |("-alist|
|00002070| 5c 5c 27 22 20 28 72 65 | 70 65 61 74 20 28 63 6f |\\'" (re|peat (co|
|00002080| 6e 73 20 73 65 78 70 20 | 73 65 78 70 29 29 29 29 |ns sexp |sexp))))|
|00002090| 20 22 41 6c 69 73 74 20 | 6f 66 20 28 4d 41 54 43 | "Alist |of (MATC|
|000020a0| 48 20 54 59 50 45 29 2e | 5c 6e 5c 6e 4d 41 54 43 |H TYPE).|\n\nMATC|
|000020b0| 48 20 73 68 6f 75 6c 64 | 20 62 65 20 61 20 72 65 |H should| be a re|
|000020c0| 67 65 78 70 20 6d 61 74 | 63 68 69 6e 67 20 74 68 |gexp mat|ching th|
|000020d0| 65 20 6e 61 6d 65 20 6f | 66 20 61 20 73 79 6d 62 |e name o|f a symb|
|000020e0| 6f 6c 2c 20 61 6e 64 20 | 54 59 50 45 20 73 68 6f |ol, and |TYPE sho|
|000020f0| 75 6c 64 5c 6e 62 65 20 | 61 20 77 69 64 67 65 74 |uld\nbe |a widget|
|00002100| 20 73 75 69 74 61 62 6c | 65 20 66 6f 72 20 65 64 | suitabl|e for ed|
|00002110| 69 74 69 6e 67 20 74 68 | 65 20 76 61 6c 75 65 20 |iting th|e value |
|00002120| 6f 66 20 74 68 61 74 20 | 73 79 6d 62 6f 6c 2e 20 |of that |symbol. |
|00002130| 20 54 68 65 20 54 59 50 | 45 5c 6e 6f 66 20 74 68 | The TYP|E\nof th|
|00002140| 65 20 66 69 72 73 74 20 | 65 6e 74 72 79 20 77 68 |e first |entry wh|
|00002150| 65 72 65 20 4d 41 54 43 | 48 20 6d 61 74 63 68 65 |ere MATC|H matche|
|00002160| 73 20 74 68 65 20 6e 61 | 6d 65 20 6f 66 20 74 68 |s the na|me of th|
|00002170| 65 20 73 79 6d 62 6f 6c | 20 77 69 6c 6c 20 62 65 |e symbol| will be|
|00002180| 5c 6e 75 73 65 64 2e 5c | 6e 5c 6e 54 68 69 73 20 |\nused.\|n\nThis |
|00002190| 69 73 20 75 73 65 64 20 | 66 6f 72 20 67 75 65 73 |is used |for gues|
|000021a0| 73 69 6e 67 20 74 68 65 | 20 74 79 70 65 20 6f 66 |sing the| type of|
|000021b0| 20 76 61 72 69 61 62 6c | 65 73 20 6e 6f 74 20 64 | variabl|es not d|
|000021c0| 65 63 6c 61 72 65 64 20 | 77 69 74 68 5c 6e 63 75 |eclared |with\ncu|
|000021d0| 73 74 6f 6d 69 7a 65 2e | 22 20 3a 74 79 70 65 20 |stomize.|" :type |
|000021e0| 27 28 72 65 70 65 61 74 | 20 28 67 72 6f 75 70 20 |'(repeat| (group |
|000021f0| 28 72 65 67 65 78 70 20 | 3a 74 61 67 20 22 4d 61 |(regexp |:tag "Ma|
|00002200| 74 63 68 22 29 20 28 73 | 65 78 70 20 3a 74 61 67 |tch") (s|exp :tag|
|00002210| 20 22 54 79 70 65 22 29 | 29 29 20 3a 67 72 6f 75 | "Type")|)) :grou|
|00002220| 70 20 27 63 75 73 74 6f | 6d 69 7a 65 29 0a 28 63 |p 'custo|mize).(c|
|00002230| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00002240| 72 69 61 62 6c 65 20 27 | 63 75 73 74 6f 6d 2d 67 |riable '|custom-g|
|00002250| 75 65 73 73 2d 64 6f 63 | 2d 61 6c 69 73 74 20 27 |uess-doc|-alist '|
|00002260| 27 28 28 22 5c 5c 60 5c | 5c 2a 3f 4e 6f 6e 2d 6e |'(("\\`\|\*?Non-n|
|00002270| 69 6c 20 22 20 62 6f 6f | 6c 65 61 6e 29 29 20 22 |il " boo|lean)) "|
|00002280| 41 6c 69 73 74 20 6f 66 | 20 28 4d 41 54 43 48 20 |Alist of| (MATCH |
|00002290| 54 59 50 45 29 2e 5c 6e | 5c 6e 4d 41 54 43 48 20 |TYPE).\n|\nMATCH |
|000022a0| 73 68 6f 75 6c 64 20 62 | 65 20 61 20 72 65 67 65 |should b|e a rege|
|000022b0| 78 70 20 6d 61 74 63 68 | 69 6e 67 20 61 20 64 6f |xp match|ing a do|
|000022c0| 63 75 6d 65 6e 74 61 74 | 69 6f 6e 20 73 74 72 69 |cumentat|ion stri|
|000022d0| 6e 67 2c 20 61 6e 64 20 | 54 59 50 45 5c 6e 73 68 |ng, and |TYPE\nsh|
|000022e0| 6f 75 6c 64 20 62 65 20 | 61 20 77 69 64 67 65 74 |ould be |a widget|
|000022f0| 20 73 75 69 74 61 62 6c | 65 20 66 6f 72 20 65 64 | suitabl|e for ed|
|00002300| 69 74 69 6e 67 20 74 68 | 65 20 76 61 6c 75 65 20 |iting th|e value |
|00002310| 6f 66 20 61 20 76 61 72 | 69 61 62 6c 65 20 77 69 |of a var|iable wi|
|00002320| 74 68 5c 6e 74 68 61 74 | 20 64 6f 63 75 6d 65 6e |th\nthat| documen|
|00002330| 74 61 74 69 6f 6e 20 73 | 74 72 69 6e 67 2e 20 20 |tation s|tring. |
|00002340| 54 68 65 20 54 59 50 45 | 20 6f 66 20 74 68 65 20 |The TYPE| of the |
|00002350| 66 69 72 73 74 20 65 6e | 74 72 79 20 77 68 65 72 |first en|try wher|
|00002360| 65 20 4d 41 54 43 48 5c | 6e 6d 61 74 63 68 65 73 |e MATCH\|nmatches|
|00002370| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 74 68 65 | the nam|e of the|
|00002380| 20 73 79 6d 62 6f 6c 20 | 77 69 6c 6c 20 62 65 20 | symbol |will be |
|00002390| 75 73 65 64 2e 5c 6e 5c | 6e 54 68 69 73 20 69 73 |used.\n\|nThis is|
|000023a0| 20 75 73 65 64 20 66 6f | 72 20 67 75 65 73 73 69 | used fo|r guessi|
|000023b0| 6e 67 20 74 68 65 20 74 | 79 70 65 20 6f 66 20 76 |ng the t|ype of v|
|000023c0| 61 72 69 61 62 6c 65 73 | 20 6e 6f 74 20 64 65 63 |ariables| not dec|
|000023d0| 6c 61 72 65 64 20 77 69 | 74 68 5c 6e 63 75 73 74 |lared wi|th\ncust|
|000023e0| 6f 6d 69 7a 65 2e 22 20 | 3a 74 79 70 65 20 27 28 |omize." |:type '(|
|000023f0| 72 65 70 65 61 74 20 28 | 67 72 6f 75 70 20 28 72 |repeat (|group (r|
|00002400| 65 67 65 78 70 20 3a 74 | 61 67 20 22 4d 61 74 63 |egexp :t|ag "Matc|
|00002410| 68 22 29 20 28 73 65 78 | 70 20 3a 74 61 67 20 22 |h") (sex|p :tag "|
|00002420| 54 79 70 65 22 29 29 29 | 20 3a 67 72 6f 75 70 20 |Type")))| :group |
|00002430| 27 63 75 73 74 6f 6d 69 | 7a 65 29 0a 23 40 31 38 |'customi|ze).#@18|
|00002440| 36 20 47 75 65 73 73 20 | 61 20 77 69 64 67 65 74 |6 Guess |a widget|
|00002450| 20 73 75 69 74 61 62 6c | 65 20 66 6f 72 20 65 64 | suitabl|e for ed|
|00002460| 69 74 69 6e 67 20 74 68 | 65 20 76 61 6c 75 65 20 |iting th|e value |
|00002470| 6f 66 20 53 59 4d 42 4f | 4c 2e 0a 54 68 69 73 20 |of SYMBO|L..This |
|00002480| 69 73 20 64 6f 6e 65 20 | 62 79 20 6d 61 74 63 68 |is done |by match|
|00002490| 69 6e 67 20 53 59 4d 42 | 4f 4c 20 77 69 74 68 20 |ing SYMB|OL with |
|000024a0| 60 63 75 73 74 6f 6d 2d | 67 75 65 73 73 2d 6e 61 |`custom-|guess-na|
|000024b0| 6d 65 2d 61 6c 69 73 74 | 27 20 61 6e 64 0a 69 66 |me-alist|' and.if|
|000024c0| 20 74 68 61 74 20 66 61 | 69 6c 73 2c 20 74 68 65 | that fa|ils, the|
|000024d0| 20 64 6f 63 20 73 74 72 | 69 6e 67 20 77 69 74 68 | doc str|ing with|
|000024e0| 20 60 63 75 73 74 6f 6d | 2d 67 75 65 73 73 2d 64 | `custom|-guess-d|
|000024f0| 6f 63 2d 61 6c 69 73 74 | 27 2e 1f 0a 28 64 65 66 |oc-alist|'...(def|
|00002500| 61 6c 69 61 73 20 27 63 | 75 73 74 6f 6d 2d 67 75 |alias 'c|ustom-gu|
|00002510| 65 73 73 2d 74 79 70 65 | 20 23 5b 28 73 79 6d 62 |ess-type| #[(symb|
|00002520| 6f 6c 29 20 22 c0 09 21 | 5c 6e c3 89 1c 1d 1e 06 |ol) "..!|\n......|
|00002530| 1e 07 0e 06 ab 9b 0e 06 | 40 15 0e 06 41 16 06 c8 |........|@...A...|
|00002540| 0d 40 0e 07 5c 22 ab 6b | 0d 41 40 14 c3 89 16 06 |.@..\".k|.A@.....|
|00002550| ac 65 0c ac ad c9 09 ca | 5c 22 0e 0b 1e 0c 89 1e |.e......|\"......|
|00002560| 0d ab 9f 0e 0c ab 9b 0e | 0c 40 15 0e 0c 41 16 0c |........|.@...A..|
|00002570| c8 0d 40 0e 0d 5c 22 ab | 6b 0d 41 40 14 c3 89 16 |..@..\".|k.A@....|
|00002580| 0c ac 65 2a 0c 2c 87 22 | 20 5b 73 79 6d 62 6f 6c |..e*.,."| [symbol|
|00002590| 2d 6e 61 6d 65 20 73 79 | 6d 62 6f 6c 20 63 75 73 |-name sy|mbol cus|
|000025a0| 74 6f 6d 2d 67 75 65 73 | 73 2d 6e 61 6d 65 2d 61 |tom-gues|s-name-a|
|000025b0| 6c 69 73 74 20 6e 69 6c | 20 66 6f 75 6e 64 20 63 |list nil| found c|
|000025c0| 75 72 72 65 6e 74 20 6e | 61 6d 65 73 20 6e 61 6d |urrent n|ames nam|
|000025d0| 65 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 64 |e string|-match d|
|000025e0| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 2d 70 72 6f |ocumenta|tion-pro|
|000025f0| 70 65 72 74 79 20 76 61 | 72 69 61 62 6c 65 2d 64 |perty va|riable-d|
|00002600| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 20 63 75 73 |ocumenta|tion cus|
|00002610| 74 6f 6d 2d 67 75 65 73 | 73 2d 64 6f 63 2d 61 6c |tom-gues|s-doc-al|
|00002620| 69 73 74 20 64 6f 63 73 | 20 64 6f 63 5d 20 35 20 |ist docs| doc] 5 |
|00002630| 28 23 24 20 2e 20 39 32 | 38 32 29 5d 29 0a 28 63 |(#$ . 92|82)]).(c|
|00002640| 75 73 74 6f 6d 2d 64 65 | 63 6c 61 72 65 2d 76 61 |ustom-de|clare-va|
|00002650| 72 69 61 62 6c 65 20 27 | 63 75 73 74 6f 6d 2d 62 |riable '|custom-b|
|00002660| 72 6f 77 73 65 2d 73 6f | 72 74 2d 61 6c 70 68 61 |rowse-so|rt-alpha|
|00002670| 62 65 74 69 63 61 6c 6c | 79 20 27 6e 69 6c 20 22 |beticall|y 'nil "|
|00002680| 49 66 20 6e 6f 6e 2d 6e | 69 6c 2c 20 73 6f 72 74 |If non-n|il, sort|
|00002690| 20 6d 65 6d 62 65 72 73 | 20 6f 66 20 65 61 63 68 | members| of each|
|000026a0| 20 63 75 73 74 6f 6d 69 | 7a 61 74 69 6f 6e 20 67 | customi|zation g|
|000026b0| 72 6f 75 70 20 61 6c 70 | 68 61 62 65 74 69 63 61 |roup alp|habetica|
|000026c0| 6c 6c 79 2e 22 20 3a 74 | 79 70 65 20 27 62 6f 6f |lly." :t|ype 'boo|
|000026d0| 6c 65 61 6e 20 3a 67 72 | 6f 75 70 20 27 63 75 73 |lean :gr|oup 'cus|
|000026e0| 74 6f 6d 2d 62 72 6f 77 | 73 65 29 0a 28 63 75 73 |tom-brow|se).(cus|
|000026f0| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|00002700| 61 62 6c 65 20 27 63 75 | 73 74 6f 6d 2d 62 72 6f |able 'cu|stom-bro|
|00002710| 77 73 65 2d 6f 72 64 65 | 72 2d 67 72 6f 75 70 73 |wse-orde|r-groups|
|00002720| 20 27 6e 69 6c 20 22 49 | 66 20 6e 6f 6e 2d 6e 69 | 'nil "I|f non-ni|
|00002730| 6c 2c 20 6f 72 64 65 72 | 20 67 72 6f 75 70 20 6d |l, order| group m|
|00002740| 65 6d 62 65 72 73 20 77 | 69 74 68 69 6e 20 65 61 |embers w|ithin ea|
|00002750| 63 68 20 63 75 73 74 6f | 6d 69 7a 61 74 69 6f 6e |ch custo|mization|
|00002760| 20 67 72 6f 75 70 2e 5c | 6e 49 66 20 60 66 69 72 | group.\|nIf `fir|
|00002770| 73 74 27 2c 20 6f 72 64 | 65 72 20 67 72 6f 75 70 |st', ord|er group|
|00002780| 73 20 62 65 66 6f 72 65 | 20 6e 6f 6e 2d 67 72 6f |s before| non-gro|
|00002790| 75 70 73 2e 5c 6e 49 66 | 20 60 6c 61 73 74 27 2c |ups.\nIf| `last',|
|000027a0| 20 6f 72 64 65 72 20 67 | 72 6f 75 70 73 20 61 66 | order g|roups af|
|000027b0| 74 65 72 20 6e 6f 6e 2d | 67 72 6f 75 70 73 2e 22 |ter non-|groups."|
|000027c0| 20 3a 74 79 70 65 20 27 | 28 63 68 6f 69 63 65 20 | :type '|(choice |
|000027d0| 28 63 6f 6e 73 74 20 66 | 69 72 73 74 29 20 28 63 |(const f|irst) (c|
|000027e0| 6f 6e 73 74 20 6c 61 73 | 74 29 20 28 63 6f 6e 73 |onst las|t) (cons|
|000027f0| 74 20 3a 74 61 67 20 22 | 6e 6f 6e 65 22 20 6e 69 |t :tag "|none" ni|
|00002800| 6c 29 29 20 3a 67 72 6f | 75 70 20 27 63 75 73 74 |l)) :gro|up 'cust|
|00002810| 6f 6d 2d 62 72 6f 77 73 | 65 29 0a 28 63 75 73 74 |om-brows|e).(cust|
|00002820| 6f 6d 2d 64 65 63 6c 61 | 72 65 2d 76 61 72 69 61 |om-decla|re-varia|
|00002830| 62 6c 65 20 27 63 75 73 | 74 6f 6d 2d 62 72 6f 77 |ble 'cus|tom-brow|
|00002840| 73 65 2d 6f 6e 6c 79 2d | 67 72 6f 75 70 73 20 27 |se-only-|groups '|
|00002850| 6e 69 6c 20 22 49 66 20 | 6e 6f 6e 2d 6e 69 6c 2c |nil "If |non-nil,|
|00002860| 20 73 68 6f 77 20 67 72 | 6f 75 70 20 6d 65 6d 62 | show gr|oup memb|
|00002870| 65 72 73 20 6f 6e 6c 79 | 20 77 69 74 68 69 6e 20 |ers only| within |
|00002880| 65 61 63 68 20 63 75 73 | 74 6f 6d 69 7a 61 74 69 |each cus|tomizati|
|00002890| 6f 6e 20 67 72 6f 75 70 | 2e 22 20 3a 74 79 70 65 |on group|." :type|
|000028a0| 20 27 62 6f 6f 6c 65 61 | 6e 20 3a 67 72 6f 75 70 | 'boolea|n :group|
|000028b0| 20 27 63 75 73 74 6f 6d | 2d 62 72 6f 77 73 65 29 | 'custom|-browse)|
|000028c0| 0a 28 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |.(custom|-declare|
|000028d0| 2d 76 61 72 69 61 62 6c | 65 20 27 63 75 73 74 6f |-variabl|e 'custo|
|000028e0| 6d 2d 62 75 66 66 65 72 | 2d 73 6f 72 74 2d 61 6c |m-buffer|-sort-al|
|000028f0| 70 68 61 62 65 74 69 63 | 61 6c 6c 79 20 27 6e 69 |phabetic|ally 'ni|
|00002900| 6c 20 22 49 66 20 6e 6f | 6e 2d 6e 69 6c 2c 20 73 |l "If no|n-nil, s|
|00002910| 6f 72 74 20 6d 65 6d 62 | 65 72 73 20 6f 66 20 65 |ort memb|ers of e|
|00002920| 61 63 68 20 63 75 73 74 | 6f 6d 69 7a 61 74 69 6f |ach cust|omizatio|
|00002930| 6e 20 67 72 6f 75 70 20 | 61 6c 70 68 61 62 65 74 |n group |alphabet|
|00002940| 69 63 61 6c 6c 79 2e 22 | 20 3a 74 79 70 65 20 27 |ically."| :type '|
|00002950| 62 6f 6f 6c 65 61 6e 20 | 3a 67 72 6f 75 70 20 27 |boolean |:group '|
|00002960| 63 75 73 74 6f 6d 2d 62 | 75 66 66 65 72 29 0a 28 |custom-b|uffer).(|
|00002970| 63 75 73 74 6f 6d 2d 64 | 65 63 6c 61 72 65 2d 76 |custom-d|eclare-v|
|00002980| 61 72 69 61 62 6c 65 20 | 27 63 75 73 74 6f 6d 2d |ariable |'custom-|
|00002990| 62 75 66 66 65 72 2d 6f | 72 64 65 72 2d 67 72 6f |buffer-o|rder-gro|
|000029a0| 75 70 73 20 27 27 6c 61 | 73 74 20 22 49 66 20 6e |ups ''la|st "If n|
|000029b0| 6f 6e 2d 6e 69 6c 2c 20 | 6f 72 64 65 72 20 67 72 |on-nil, |order gr|
|000029c0| 6f 75 70 20 6d 65 6d 62 | 65 72 73 20 77 69 74 68 |oup memb|ers with|
|000029d0| 69 6e 20 65 61 63 68 20 | 63 75 73 74 6f 6d 69 7a |in each |customiz|
|000029e0| 61 74 69 6f 6e 20 67 72 | 6f 75 70 2e 5c 6e 49 66 |ation gr|oup.\nIf|
|000029f0| 20 60 66 69 72 73 74 27 | 2c 20 6f 72 64 65 72 20 | `first'|, order |
|00002a00| 67 72 6f 75 70 73 20 62 | 65 66 6f 72 65 20 6e 6f |groups b|efore no|
|00002a10| 6e 2d 67 72 6f 75 70 73 | 2e 5c 6e 49 66 20 60 6c |n-groups|.\nIf `l|
|00002a20| 61 73 74 27 2c 20 6f 72 | 64 65 72 20 67 72 6f 75 |ast', or|der grou|
|00002a30| 70 73 20 61 66 74 65 72 | 20 6e 6f 6e 2d 67 72 6f |ps after| non-gro|
|00002a40| 75 70 73 2e 22 20 3a 74 | 79 70 65 20 27 28 63 68 |ups." :t|ype '(ch|
|00002a50| 6f 69 63 65 20 28 63 6f | 6e 73 74 20 66 69 72 73 |oice (co|nst firs|
|00002a60| 74 29 20 28 63 6f 6e 73 | 74 20 6c 61 73 74 29 20 |t) (cons|t last) |
|00002a70| 28 63 6f 6e 73 74 20 3a | 74 61 67 20 22 6e 6f 6e |(const :|tag "non|
|00002a80| 65 22 20 6e 69 6c 29 29 | 20 3a 67 72 6f 75 70 20 |e" nil))| :group |
|00002a90| 27 63 75 73 74 6f 6d 2d | 62 75 66 66 65 72 29 0a |'custom-|buffer).|
|00002aa0| 28 63 75 73 74 6f 6d 2d | 64 65 63 6c 61 72 65 2d |(custom-|declare-|
|00002ab0| 76 61 72 69 61 62 6c 65 | 20 27 63 75 73 74 6f 6d |variable| 'custom|
|00002ac0| 2d 6d 65 6e 75 2d 73 6f | 72 74 2d 61 6c 70 68 61 |-menu-so|rt-alpha|
|00002ad0| 62 65 74 69 63 61 6c 6c | 79 20 27 6e 69 6c 20 22 |beticall|y 'nil "|
|00002ae0| 49 66 20 6e 6f 6e 2d 6e | 69 6c 2c 20 73 6f 72 74 |If non-n|il, sort|
|00002af0| 20 6d 65 6d 62 65 72 73 | 20 6f 66 20 65 61 63 68 | members| of each|
|00002b00| 20 63 75 73 74 6f 6d 69 | 7a 61 74 69 6f 6e 20 67 | customi|zation g|
|00002b10| 72 6f 75 70 20 61 6c 70 | 68 61 62 65 74 69 63 61 |roup alp|habetica|
|00002b20| 6c 6c 79 2e 22 20 3a 74 | 79 70 65 20 27 62 6f 6f |lly." :t|ype 'boo|
|00002b30| 6c 65 61 6e 20 3a 67 72 | 6f 75 70 20 27 63 75 73 |lean :gr|oup 'cus|
|00002b40| 74 6f 6d 2d 6d 65 6e 75 | 29 0a 28 63 75 73 74 6f |tom-menu|).(custo|
|00002b50| 6d 2d 64 65 63 6c 61 72 | 65 2d 76 61 72 69 61 62 |m-declar|e-variab|
|00002b60| 6c 65 20 27 63 75 73 74 | 6f 6d 2d 6d 65 6e 75 2d |le 'cust|om-menu-|
|00002b70| 6f 72 64 65 72 2d 67 72 | 6f 75 70 73 20 27 27 66 |order-gr|oups ''f|
|00002b80| 69 72 73 74 20 22 49 66 | 20 6e 6f 6e 2d 6e 69 6c |irst "If| non-nil|
|00002b90| 2c 20 6f 72 64 65 72 20 | 67 72 6f 75 70 20 6d 65 |, order |group me|
|00002ba0| 6d 62 65 72 73 20 77 69 | 74 68 69 6e 20 65 61 63 |mbers wi|thin eac|
|00002bb0| 68 20 63 75 73 74 6f 6d | 69 7a 61 74 69 6f 6e 20 |h custom|ization |
|00002bc0| 67 72 6f 75 70 2e 5c 6e | 49 66 20 60 66 69 72 73 |group.\n|If `firs|
|00002bd0| 74 27 2c 20 6f 72 64 65 | 72 20 67 72 6f 75 70 73 |t', orde|r groups|
|00002be0| 20 62 65 66 6f 72 65 20 | 6e 6f 6e 2d 67 72 6f 75 | before |non-grou|
|00002bf0| 70 73 2e 5c 6e 49 66 20 | 60 6c 61 73 74 27 2c 20 |ps.\nIf |`last', |
|00002c00| 6f 72 64 65 72 20 67 72 | 6f 75 70 73 20 61 66 74 |order gr|oups aft|
|00002c10| 65 72 20 6e 6f 6e 2d 67 | 72 6f 75 70 73 2e 22 20 |er non-g|roups." |
|00002c20| 3a 74 79 70 65 20 27 28 | 63 68 6f 69 63 65 20 28 |:type '(|choice (|
|00002c30| 63 6f 6e 73 74 20 66 69 | 72 73 74 29 20 28 63 6f |const fi|rst) (co|
|00002c40| 6e 73 74 20 6c 61 73 74 | 29 20 28 63 6f 6e 73 74 |nst last|) (const|
|00002c50| 20 3a 74 61 67 20 22 6e | 6f 6e 65 22 20 6e 69 6c | :tag "n|one" nil|
|00002c60| 29 29 20 3a 67 72 6f 75 | 70 20 27 63 75 73 74 6f |)) :grou|p 'custo|
|00002c70| 6d 2d 6d 65 6e 75 29 0a | 23 40 32 36 33 20 52 65 |m-menu).|#@263 Re|
|00002c80| 74 75 72 6e 20 61 20 73 | 6f 72 74 65 64 20 63 6f |turn a s|orted co|
|00002c90| 70 79 20 6f 66 20 49 54 | 45 4d 53 2e 0a 49 54 45 |py of IT|EMS..ITE|
|00002ca0| 4d 53 20 73 68 6f 75 6c | 64 20 62 65 20 61 20 60 |MS shoul|d be a `|
|00002cb0| 63 75 73 74 6f 6d 2d 67 | 72 6f 75 70 27 20 70 72 |custom-g|roup' pr|
|00002cc0| 6f 70 65 72 74 79 2e 0a | 49 66 20 53 4f 52 54 2d |operty..|If SORT-|
|00002cd0| 41 4c 50 48 41 42 45 54 | 49 43 41 4c 4c 59 20 6e |ALPHABET|ICALLY n|
|00002ce0| 6f 6e 2d 6e 69 6c 2c 20 | 73 6f 72 74 20 61 6c 70 |on-nil, |sort alp|
|00002cf0| 68 61 62 65 74 69 63 61 | 6c 6c 79 2e 0a 49 66 20 |habetica|lly..If |
|00002d00| 4f 52 44 45 52 2d 47 52 | 4f 55 50 53 20 69 73 20 |ORDER-GR|OUPS is |
|00002d10| 60 66 69 72 73 74 27 20 | 6f 72 64 65 72 20 67 72 |`first' |order gr|
|00002d20| 6f 75 70 73 20 62 65 66 | 6f 72 65 20 6e 6f 6e 2d |oups bef|ore non-|
|00002d30| 67 72 6f 75 70 73 2c 20 | 69 66 20 60 6c 61 73 74 |groups, |if `last|
|00002d40| 27 20 6f 72 64 65 72 0a | 67 72 6f 75 70 73 20 61 |' order.|groups a|
|00002d50| 66 74 65 72 20 6e 6f 6e | 2d 67 72 6f 75 70 73 2c |fter non|-groups,|
|00002d60| 20 69 66 20 6e 69 6c 20 | 64 6f 20 6e 6f 74 20 6f | if nil |do not o|
|00002d70| 72 64 65 72 20 67 72 6f | 75 70 73 20 61 74 20 61 |rder gro|ups at a|
|00002d80| 6c 6c 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ll...(de|falias '|
|00002d90| 63 75 73 74 6f 6d 2d 73 | 6f 72 74 2d 69 74 65 6d |custom-s|ort-item|
|00002da0| 73 20 23 5b 28 69 74 65 | 6d 73 20 73 6f 72 74 2d |s #[(ite|ms sort-|
|00002db0| 61 6c 70 68 61 62 65 74 | 69 63 61 6c 6c 79 20 6f |alphabet|ically o|
|00002dc0| 72 64 65 72 2d 67 72 6f | 75 70 73 29 20 22 c0 c1 |rder-gro|ups) "..|
|00002dd0| 5c 6e 21 c3 5c 22 87 22 | 20 5b 73 6f 72 74 20 63 |\n!.\"."| [sort c|
|00002de0| 6f 70 79 2d 73 65 71 75 | 65 6e 63 65 20 69 74 65 |opy-sequ|ence ite|
|00002df0| 6d 73 20 23 5b 28 61 20 | 62 29 20 22 08 41 40 09 |ms #[(a |b) ".A@.|
|00002e00| 41 40 c2 08 40 21 c2 09 | 40 21 1b 1c 1d 1e 06 0e |A@..@!..|@!......|
|00002e10| 07 ac 89 0e 08 ad b1 0c | 0b 99 aa ac 0e 06 c9 61 |........|.......a|
|00002e20| ab 94 0d c9 61 ab 89 0e | 08 ad 9d 0c 0b 99 aa 98 |....a...|........|
|00002e30| 0e 07 ca 61 aa 92 0d c9 | 61 ab 86 0e 07 cb 61 aa |...a....|a.....a.|
|00002e40| 87 0e 08 ad 83 0c 0b 99 | 2c 87 22 20 5b 61 20 62 |........|,." [a b|
|00002e50| 20 73 79 6d 62 6f 6c 2d | 6e 61 6d 65 20 6e 61 6d | symbol-|name nam|
|00002e60| 65 62 20 6e 61 6d 65 61 | 20 74 79 70 65 62 20 74 |eb namea| typeb t|
|00002e70| 79 70 65 61 20 6f 72 64 | 65 72 2d 67 72 6f 75 70 |ypea ord|er-group|
|00002e80| 73 20 73 6f 72 74 2d 61 | 6c 70 68 61 62 65 74 69 |s sort-a|lphabeti|
|00002e90| 63 61 6c 6c 79 20 63 75 | 73 74 6f 6d 2d 67 72 6f |cally cu|stom-gro|
|00002ea0| 75 70 20 66 69 72 73 74 | 20 6c 61 73 74 5d 20 35 |up first| last] 5|
|00002eb0| 5d 5d 20 33 20 28 23 24 | 20 2e 20 31 31 33 39 30 |]] 3 (#$| . 11390|
|00002ec0| 29 5d 29 0a 23 40 34 36 | 20 43 75 73 74 6f 6d 69 |)]).#@46| Customi|
|00002ed0| 7a 61 74 69 6f 6e 20 77 | 69 64 67 65 74 73 20 69 |zation w|idgets i|
|00002ee0| 6e 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 62 75 |n the cu|rrent bu|
|00002ef0| 66 66 65 72 2e 1f 0a 28 | 64 65 66 76 61 72 20 63 |ffer...(|defvar c|
|00002f00| 75 73 74 6f 6d 2d 6f 70 | 74 69 6f 6e 73 20 6e 69 |ustom-op|tions ni|
|00002f10| 6c 20 28 23 24 20 2e 20 | 31 31 39 37 37 29 29 0a |l (#$ . |11977)).|
|00002f20| 23 40 33 38 20 53 65 74 | 20 63 68 61 6e 67 65 73 |#@38 Set| changes|
|00002f30| 20 69 6e 20 61 6c 6c 20 | 6d 6f 64 69 66 69 65 64 | in all |modified|
|00002f40| 20 6f 70 74 69 6f 6e 73 | 2e 1f 0a 28 64 65 66 61 | options|...(defa|
|00002f50| 6c 69 61 73 20 27 43 75 | 73 74 6f 6d 2d 73 65 74 |lias 'Cu|stom-set|
|00002f60| 20 23 5b 6e 69 6c 20 22 | 08 19 c2 c3 09 5c 22 29 | #[nil "|.....\")|
|00002f70| 87 22 20 5b 63 75 73 74 | 6f 6d 2d 6f 70 74 69 6f |." [cust|om-optio|
|00002f80| 6e 73 20 63 68 69 6c 64 | 72 65 6e 20 6d 61 70 63 |ns child|ren mapc|
|00002f90| 20 23 5b 28 63 68 69 6c | 64 29 20 22 c0 09 c2 5c | #[(chil|d) "...\|
|00002fa0| 22 c3 61 ad 84 c4 09 c5 | 5c 22 87 22 20 5b 77 69 |".a.....|\"." [wi|
|00002fb0| 64 67 65 74 2d 67 65 74 | 20 63 68 69 6c 64 20 3a |dget-get| child :|
|00002fc0| 63 75 73 74 6f 6d 2d 73 | 74 61 74 65 20 6d 6f 64 |custom-s|tate mod|
|00002fd0| 69 66 69 65 64 20 77 69 | 64 67 65 74 2d 61 70 70 |ified wi|dget-app|
|00002fe0| 6c 79 20 3a 63 75 73 74 | 6f 6d 2d 73 65 74 5d 20 |ly :cust|om-set] |
|00002ff0| 33 5d 5d 20 33 20 28 23 | 24 20 2e 20 31 32 30 36 |3]] 3 (#|$ . 1206|
|00003000| 39 29 20 6e 69 6c 5d 29 | 0a 23 40 34 37 20 53 65 |9) nil])|.#@47 Se|
|00003010| 74 20 61 6c 6c 20 6d 6f | 64 69 66 69 65 64 20 67 |t all mo|dified g|
|00003020| 72 6f 75 70 20 6d 65 6d | 62 65 72 73 20 61 6e 64 |roup mem|bers and|
|00003030| 20 73 61 76 65 20 74 68 | 65 6d 2e 1f 0a 28 64 65 | save th|em...(de|
|00003040| 66 61 6c 69 61 73 20 27 | 43 75 73 74 6f 6d 2d 73 |falias '|Custom-s|
|00003050| 61 76 65 20 23 5b 6e 69 | 6c 20 22 08 19 c2 c3 09 |ave #[ni|l ".....|
|00003060| 5c 22 88 29 c4 20 87 22 | 20 5b 63 75 73 74 6f 6d |\".). ."| [custom|
|00003070| 2d 6f 70 74 69 6f 6e 73 | 20 63 68 69 6c 64 72 65 |-options| childre|
|00003080| 6e 20 6d 61 70 63 20 23 | 5b 28 63 68 69 6c 64 29 |n mapc #|[(child)|
|00003090| 20 22 c0 09 c2 5c 22 c3 | 73 ad 84 c4 09 c5 5c 22 | "...\".|s.....\"|
|000030a0| 87 22 20 5b 77 69 64 67 | 65 74 2d 67 65 74 20 63 |." [widg|et-get c|
|000030b0| 68 69 6c 64 20 3a 63 75 | 73 74 6f 6d 2d 73 74 61 |hild :cu|stom-sta|
|000030c0| 74 65 20 28 6d 6f 64 69 | 66 69 65 64 20 73 65 74 |te (modi|fied set|
|000030d0| 29 20 77 69 64 67 65 74 | 2d 61 70 70 6c 79 20 3a |) widget|-apply :|
|000030e0| 63 75 73 74 6f 6d 2d 73 | 61 76 65 5d 20 33 5d 20 |custom-s|ave] 3] |
|000030f0| 63 75 73 74 6f 6d 2d 73 | 61 76 65 2d 61 6c 6c 5d |custom-s|ave-all]|
|00003100| 20 33 20 28 23 24 20 2e | 20 31 32 33 30 32 29 20 | 3 (#$ .| 12302) |
|00003110| 6e 69 6c 5d 29 0a 23 40 | 32 30 36 20 41 6c 69 73 |nil]).#@|206 Alis|
|00003120| 74 20 6f 66 20 61 63 74 | 69 6f 6e 73 20 66 6f 72 |t of act|ions for|
|00003130| 20 74 68 65 20 60 52 65 | 73 65 74 27 20 62 75 74 | the `Re|set' but|
|00003140| 74 6f 6e 2e 0a 54 68 65 | 20 6b 65 79 20 69 73 20 |ton..The| key is |
|00003150| 61 20 73 74 72 69 6e 67 | 20 63 6f 6e 74 61 69 6e |a string| contain|
|00003160| 69 6e 67 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |ing the |name of |
|00003170| 74 68 65 20 61 63 74 69 | 6f 6e 2c 20 74 68 65 20 |the acti|on, the |
|00003180| 76 61 6c 75 65 20 69 73 | 20 61 0a 6c 69 73 70 20 |value is| a.lisp |
|00003190| 66 75 6e 63 74 69 6f 6e | 20 74 61 6b 69 6e 67 20 |function| taking |
|000031a0| 74 68 65 20 77 69 64 67 | 65 74 20 61 73 20 61 6e |the widg|et as an|
|000031b0| 20 65 6c 65 6d 65 6e 74 | 20 77 68 69 63 68 20 77 | element| which w|
|000031c0| 69 6c 6c 20 62 65 20 63 | 61 6c 6c 65 64 0a 77 68 |ill be c|alled.wh|
|000031d0| 65 6e 20 74 68 65 20 61 | 63 74 69 6f 6e 20 69 73 |en the a|ction is|
|000031e0| 20 63 68 6f 73 65 6e 2e | 1f 0a 28 64 65 66 76 61 | chosen.|..(defva|
|000031f0| 72 20 63 75 73 74 6f 6d | 2d 72 65 73 65 74 2d 6d |r custom|-reset-m|
|00003200| 65 6e 75 20 27 28 28 22 | 43 75 72 72 65 6e 74 22 |enu '(("|Current"|
|00003210| 20 2e 20 43 75 73 74 6f | 6d 2d 72 65 73 65 74 2d | . Custo|m-reset-|
|00003220| 63 75 72 72 65 6e 74 29 | 20 28 22 53 61 76 65 64 |current)| ("Saved|
|00003230| 22 20 2e 20 43 75 73 74 | 6f 6d 2d 72 65 73 65 74 |" . Cust|om-reset|
|00003240| 2d 73 61 76 65 64 29 20 | 28 22 53 74 61 6e 64 61 |-saved) |("Standa|
|00003250| 72 64 20 53 65 74 74 69 | 6e 67 73 22 20 2e 20 43 |rd Setti|ngs" . C|
|00003260| 75 73 74 6f 6d 2d 72 65 | 73 65 74 2d 73 74 61 6e |ustom-re|set-stan|
|00003270| 64 61 72 64 29 29 20 28 | 23 24 20 2e 20 31 32 35 |dard)) (|#$ . 125|
|00003280| 37 32 29 29 0a 23 40 33 | 30 20 53 65 6c 65 63 74 |72)).#@3|0 Select|
|00003290| 20 69 74 65 6d 20 66 72 | 6f 6d 20 72 65 73 65 74 | item fr|om reset|
|000032a0| 20 6d 65 6e 75 2e 1f 0a | 28 64 65 66 61 6c 69 61 | menu...|(defalia|
|000032b0| 73 20 27 63 75 73 74 6f | 6d 2d 72 65 73 65 74 20 |s 'custo|m-reset |
|000032c0| 23 5b 28 65 76 65 6e 74 | 29 20 22 c0 19 c2 c3 0c |#[(event|) ".....|
|000032d0| 0d 23 89 1e 06 ad 83 0e | 06 20 2a 87 22 20 5b 74 |.#......|. *." [t|
|000032e0| 20 63 6f 6d 70 6c 65 74 | 69 6f 6e 2d 69 67 6e 6f | complet|ion-igno|
|000032f0| 72 65 2d 63 61 73 65 20 | 77 69 64 67 65 74 2d 63 |re-case |widget-c|
|00003300| 68 6f 6f 73 65 20 22 52 | 65 73 65 74 20 74 6f 22 |hoose "R|eset to"|
|00003310| 20 63 75 73 74 6f 6d 2d | 72 65 73 65 74 2d 6d 65 | custom-|reset-me|
|00003320| 6e 75 20 65 76 65 6e 74 | 20 61 6e 73 77 65 72 5d |nu event| answer]|
|00003330| 20 35 20 28 23 24 20 2e | 20 31 32 39 33 38 29 5d | 5 (#$ .| 12938)]|
|00003340| 29 0a 23 40 35 38 20 52 | 65 73 65 74 20 61 6c 6c |).#@58 R|eset all|
|00003350| 20 6d 6f 64 69 66 69 65 | 64 20 67 72 6f 75 70 20 | modifie|d group |
|00003360| 6d 65 6d 62 65 72 73 20 | 74 6f 20 74 68 65 69 72 |members |to their|
|00003370| 20 63 75 72 72 65 6e 74 | 20 76 61 6c 75 65 2e 1f | current| value..|
|00003380| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 43 75 73 74 |.(defali|as 'Cust|
|00003390| 6f 6d 2d 72 65 73 65 74 | 2d 63 75 72 72 65 6e 74 |om-reset|-current|
|000033a0| 20 23 5b 28 26 72 65 73 | 74 20 69 67 6e 6f 72 65 | #[(&res|t ignore|
|000033b0| 29 20 22 08 19 c2 c3 09 | 5c 22 29 87 22 20 5b 63 |) ".....|\")." [c|
|000033c0| 75 73 74 6f 6d 2d 6f 70 | 74 69 6f 6e 73 20 63 68 |ustom-op|tions ch|
|000033d0| 69 6c 64 72 65 6e 20 6d | 61 70 63 20 23 5b 28 63 |ildren m|apc #[(c|
|000033e0| 68 69 6c 64 29 20 22 c0 | 09 c2 5c 22 c3 61 ad 84 |hild) ".|..\".a..|
|000033f0| c4 09 c5 5c 22 87 22 20 | 5b 77 69 64 67 65 74 2d |...\"." |[widget-|
|00003400| 67 65 74 20 63 68 69 6c | 64 20 3a 63 75 73 74 6f |get chil|d :custo|
|00003410| 6d 2d 73 74 61 74 65 20 | 6d 6f 64 69 66 69 65 64 |m-state |modified|
|00003420| 20 77 69 64 67 65 74 2d | 61 70 70 6c 79 20 3a 63 | widget-|apply :c|
|00003430| 75 73 74 6f 6d 2d 72 65 | 73 65 74 2d 63 75 72 72 |ustom-re|set-curr|
|00003440| 65 6e 74 5d 20 33 5d 5d | 20 33 20 28 23 24 20 2e |ent] 3]]| 3 (#$ .|
|00003450| 20 31 33 31 32 37 29 20 | 6e 69 6c 5d 29 0a 23 40 | 13127) |nil]).#@|
|00003460| 36 33 20 52 65 73 65 74 | 20 61 6c 6c 20 6d 6f 64 |63 Reset| all mod|
|00003470| 69 66 69 65 64 20 6f 72 | 20 73 65 74 20 67 72 6f |ified or| set gro|
|00003480| 75 70 20 6d 65 6d 62 65 | 72 73 20 74 6f 20 74 68 |up membe|rs to th|
|00003490| 65 69 72 20 73 61 76 65 | 64 20 76 61 6c 75 65 2e |eir save|d value.|
|000034a0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 43 75 73 |..(defal|ias 'Cus|
|000034b0| 74 6f 6d 2d 72 65 73 65 | 74 2d 73 61 76 65 64 20 |tom-rese|t-saved |
|000034c0| 23 5b 28 26 72 65 73 74 | 20 69 67 6e 6f 72 65 29 |#[(&rest| ignore)|
|000034d0| 20 22 08 19 c2 c3 09 5c | 22 29 87 22 20 5b 63 75 | ".....\|")." [cu|
|000034e0| 73 74 6f 6d 2d 6f 70 74 | 69 6f 6e 73 20 63 68 69 |stom-opt|ions chi|
|000034f0| 6c 64 72 65 6e 20 6d 61 | 70 63 20 23 5b 28 63 68 |ldren ma|pc #[(ch|
|00003500| 69 6c 64 29 20 22 c0 09 | c2 5c 22 c3 61 ad 84 c4 |ild) "..|.\".a...|
|00003510| 09 c5 5c 22 87 22 20 5b | 77 69 64 67 65 74 2d 67 |..\"." [|widget-g|
|00003520| 65 74 20 63 68 69 6c 64 | 20 3a 63 75 73 74 6f 6d |et child| :custom|
|00003530| 2d 73 74 61 74 65 20 6d | 6f 64 69 66 69 65 64 20 |-state m|odified |
|00003540| 77 69 64 67 65 74 2d 61 | 70 70 6c 79 20 3a 63 75 |widget-a|pply :cu|
|00003550| 73 74 6f 6d 2d 72 65 73 | 65 74 2d 73 61 76 65 64 |stom-res|et-saved|
|00003560| 5d 20 33 5d 5d 20 33 20 | 28 23 24 20 2e 20 31 33 |] 3]] 3 |(#$ . 13|
|00003570| 34 31 31 29 20 6e 69 6c | 5d 29 0a 23 40 37 37 20 |411) nil|]).#@77 |
|00003580| 52 65 73 65 74 20 61 6c | 6c 20 6d 6f 64 69 66 69 |Reset al|l modifi|
|00003590| 65 64 2c 20 73 65 74 2c | 20 6f 72 20 73 61 76 65 |ed, set,| or save|
|000035a0| 64 20 67 72 6f 75 70 20 | 6d 65 6d 62 65 72 73 20 |d group |members |
|000035b0| 74 6f 20 74 68 65 69 72 | 20 73 74 61 6e 64 61 72 |to their| standar|
|000035c0| 64 20 73 65 74 74 69 6e | 67 73 2e 1f 0a 28 64 65 |d settin|gs...(de|
|000035d0| 66 61 6c 69 61 73 20 27 | 43 75 73 74 6f 6d 2d 72 |falias '|Custom-r|
|000035e0| 65 73 65 74 2d 73 74 61 | 6e 64 61 72 64 20 23 5b |eset-sta|ndard #[|
|000035f0| 28 26 72 65 73 74 20 69 | 67 6e 6f 72 65 29 20 22 |(&rest i|gnore) "|
|00003600| 08 19 c2 c3 09 5c 22 29 | 87 22 20 5b 63 75 73 74 |.....\")|." [cust|
|00003610| 6f 6d 2d 6f 70 74 69 6f | 6e 73 20 63 68 69 6c 64 |om-optio|ns child|
|00003620| 72 65 6e 20 6d 61 70 63 | 20 23 5b 28 63 68 69 6c |ren mapc| #[(chil|
|00003630| 64 29 20 22 c0 09 c2 5c | 22 c3 61 ad 84 c4 09 c5 |d) "...\|".a.....|
|00003640| 5c 22 87 22 20 5b 77 69 | 64 67 65 74 2d 67 65 74 |\"." [wi|dget-get|
|00003650| 20 63 68 69 6c 64 20 3a | 63 75 73 74 6f 6d 2d 73 | child :|custom-s|
|00003660| 74 61 74 65 20 6d 6f 64 | 69 66 69 65 64 20 77 69 |tate mod|ified wi|
|00003670| 64 67 65 74 2d 61 70 70 | 6c 79 20 3a 63 75 73 74 |dget-app|ly :cust|
|00003680| 6f 6d 2d 72 65 73 65 74 | 2d 73 74 61 6e 64 61 72 |om-reset|-standar|
|00003690| 64 5d 20 33 5d 5d 20 33 | 20 28 23 24 20 2e 20 31 |d] 3]] 3| (#$ . 1|
|000036a0| 33 36 39 36 29 20 6e 69 | 6c 5d 29 0a 23 40 35 32 |3696) ni|l]).#@52|
|000036b0| 35 20 50 72 6f 6d 70 74 | 20 66 6f 72 20 61 20 76 |5 Prompt| for a v|
|000036c0| 61 72 69 61 62 6c 65 20 | 61 6e 64 20 61 20 76 61 |ariable |and a va|
|000036d0| 6c 75 65 20 61 6e 64 20 | 72 65 74 75 72 6e 20 74 |lue and |return t|
|000036e0| 68 65 6d 20 61 73 20 61 | 20 6c 69 73 74 2e 0a 50 |hem as a| list..P|
|000036f0| 52 4f 4d 50 54 2d 56 41 | 52 20 69 73 20 74 68 65 |ROMPT-VA|R is the|
|00003700| 20 70 72 6f 6d 70 74 20 | 66 6f 72 20 74 68 65 20 | prompt |for the |
|00003710| 76 61 72 69 61 62 6c 65 | 2c 20 61 6e 64 20 50 52 |variable|, and PR|
|00003720| 4f 4d 50 54 2d 56 41 4c | 20 69 73 20 74 68 65 0a |OMPT-VAL| is the.|
|00003730| 70 72 6f 6d 70 74 20 66 | 6f 72 20 74 68 65 20 76 |prompt f|or the v|
|00003740| 61 6c 75 65 2e 20 20 54 | 68 65 20 25 73 20 65 73 |alue. T|he %s es|
|00003750| 63 61 70 65 20 69 6e 20 | 50 52 4f 4d 50 54 2d 56 |cape in |PROMPT-V|
|00003760| 41 4c 20 69 73 20 72 65 | 70 6c 61 63 65 64 20 77 |AL is re|placed w|
|00003770| 69 74 68 0a 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |ith.the |name of |
|00003780| 74 68 65 20 76 61 72 69 | 61 62 6c 65 2e 0a 0a 49 |the vari|able...I|
|00003790| 66 20 74 68 65 20 76 61 | 72 69 61 62 6c 65 20 68 |f the va|riable h|
|000037a0| 61 73 20 61 20 60 76 61 | 72 69 61 62 6c 65 2d 69 |as a `va|riable-i|
|000037b0| 6e 74 65 72 61 63 74 69 | 76 65 27 20 70 72 6f 70 |nteracti|ve' prop|
|000037c0| 65 72 74 79 2c 20 74 68 | 61 74 20 69 73 20 75 73 |erty, th|at is us|
|000037d0| 65 64 20 61 73 20 69 66 | 0a 69 74 20 77 65 72 65 |ed as if|.it were|
|000037e0| 20 74 68 65 20 61 72 67 | 20 74 6f 20 60 69 6e 74 | the arg| to `int|
|000037f0| 65 72 61 63 74 69 76 65 | 27 20 28 77 68 69 63 68 |eractive|' (which|
|00003800| 20 73 65 65 29 20 74 6f | 20 69 6e 74 65 72 61 63 | see) to| interac|
|00003810| 74 69 76 65 6c 79 20 72 | 65 61 64 20 74 68 65 20 |tively r|ead the |
|00003820| 76 61 6c 75 65 2e 0a 0a | 49 66 20 74 68 65 20 76 |value...|If the v|
|00003830| 61 72 69 61 62 6c 65 20 | 68 61 73 20 61 20 60 63 |ariable |has a `c|
|00003840| 75 73 74 6f 6d 2d 74 79 | 70 65 27 20 70 72 6f 70 |ustom-ty|pe' prop|
|00003850| 65 72 74 79 2c 20 69 74 | 20 6d 75 73 74 20 62 65 |erty, it| must be|
|00003860| 20 61 20 77 69 64 67 65 | 74 20 61 6e 64 20 74 68 | a widge|t and th|
|00003870| 65 0a 60 3a 70 72 6f 6d | 70 74 2d 76 61 6c 75 65 |e.`:prom|pt-value|
|00003880| 27 20 70 72 6f 70 65 72 | 74 79 20 6f 66 20 74 68 |' proper|ty of th|
|00003890| 61 74 20 77 69 64 67 65 | 74 20 77 69 6c 6c 20 62 |at widge|t will b|
|000038a0| 65 20 75 73 65 64 20 66 | 6f 72 20 72 65 61 64 69 |e used f|or readi|
|000038b0| 6e 67 20 74 68 65 20 76 | 61 6c 75 65 2e 1f 0a 28 |ng the v|alue...(|
|000038c0| 64 65 66 61 6c 69 61 73 | 20 27 63 75 73 74 6f 6d |defalias| 'custom|
|000038d0| 2d 70 72 6f 6d 70 74 2d | 76 61 72 69 61 62 6c 65 |-prompt-|variable|
|000038e0| 20 23 5b 28 70 72 6f 6d | 70 74 2d 76 61 72 20 70 | #[(prom|pt-var p|
|000038f0| 72 6f 6d 70 74 2d 76 61 | 6c 29 20 22 c0 09 21 1a |rompt-va|l) "..!.|
|00003900| c3 1c 5c 6e 89 c5 4e 5c | 6e c6 4e c7 0e 08 5c 6e |..\n..N\|n.N...\n|
|00003910| 5c 22 1e 09 1e 5c 6e 1e | 0b 0e 5c 6e 3c ac 85 0e |\"...\n.|..\n<...|
|00003920| 5c 6e 43 16 5c 6e 0e 0b | ab 8c cc cd ce cf 0e 0b |\nC.\n..|........|
|00003930| 44 d0 46 21 aa 9b 0e 5c | 6e ab 93 d1 0e 5c 6e 0e |D.F!...\|n....\n.|
|00003940| 09 d2 5c 6e 21 ad 82 5c | 6e 4a d2 5c 6e 21 3f 24 |..\n!..\|nJ.\n!?$|
|00003950| aa 84 d3 0e 09 21 2d 44 | 87 22 20 5b 72 65 61 64 |.....!-D|." [read|
|00003960| 2d 76 61 72 69 61 62 6c | 65 20 70 72 6f 6d 70 74 |-variabl|e prompt|
|00003970| 2d 76 61 72 20 76 61 72 | 20 28 64 65 73 63 72 69 |-var var| (descri|
|00003980| 62 65 2d 76 61 72 69 61 | 62 6c 65 20 76 61 72 29 |be-varia|ble var)|
|00003990| 20 6d 69 6e 69 62 75 66 | 66 65 72 2d 68 65 6c 70 | minibuf|fer-help|
|000039a0| 2d 66 6f 72 6d 20 76 61 | 72 69 61 62 6c 65 2d 69 |-form va|riable-i|
|000039b0| 6e 74 65 72 61 63 74 69 | 76 65 20 63 75 73 74 6f |nteracti|ve custo|
|000039c0| 6d 2d 74 79 70 65 20 66 | 6f 72 6d 61 74 20 70 72 |m-type f|ormat pr|
|000039d0| 6f 6d 70 74 2d 76 61 6c | 20 70 72 6f 6d 70 74 20 |ompt-val| prompt |
|000039e0| 74 79 70 65 20 70 72 6f | 70 20 63 61 6c 6c 2d 69 |type pro|p call-i|
|000039f0| 6e 74 65 72 61 63 74 69 | 76 65 6c 79 20 6c 61 6d |nteracti|vely lam|
|00003a00| 62 64 61 20 28 61 72 67 | 29 20 69 6e 74 65 72 61 |bda (arg|) intera|
|00003a10| 63 74 69 76 65 20 61 72 | 67 20 77 69 64 67 65 74 |ctive ar|g widget|
|00003a20| 2d 70 72 6f 6d 70 74 2d | 76 61 6c 75 65 20 62 6f |-prompt-|value bo|
|00003a30| 75 6e 64 70 20 65 76 61 | 6c 2d 6d 69 6e 69 62 75 |undp eva|l-minibu|
|00003a40| 66 66 65 72 5d 20 37 20 | 28 23 24 20 2e 20 31 34 |ffer] 7 |(#$ . 14|
|00003a50| 30 30 32 29 5d 29 0a 23 | 40 33 34 35 20 53 65 74 |002)]).#|@345 Set|
|00003a60| 20 56 41 52 49 41 42 4c | 45 20 74 6f 20 56 41 4c | VARIABL|E to VAL|
|00003a70| 55 45 2e 20 20 56 41 4c | 55 45 20 69 73 20 61 20 |UE. VAL|UE is a |
|00003a80| 4c 69 73 70 20 6f 62 6a | 65 63 74 2e 0a 0a 49 66 |Lisp obj|ect...If|
|00003a90| 20 56 41 52 49 41 42 4c | 45 20 68 61 73 20 61 20 | VARIABL|E has a |
|00003aa0| 60 76 61 72 69 61 62 6c | 65 2d 69 6e 74 65 72 61 |`variabl|e-intera|
|00003ab0| 63 74 69 76 65 27 20 70 | 72 6f 70 65 72 74 79 2c |ctive' p|roperty,|
|00003ac0| 20 74 68 61 74 20 69 73 | 20 75 73 65 64 20 61 73 | that is| used as|
|00003ad0| 20 69 66 0a 69 74 20 77 | 65 72 65 20 74 68 65 20 | if.it w|ere the |
|00003ae0| 61 72 67 20 74 6f 20 60 | 69 6e 74 65 72 61 63 74 |arg to `|interact|
|00003af0| 69 76 65 27 20 28 77 68 | 69 63 68 20 73 65 65 29 |ive' (wh|ich see)|
|00003b00| 20 74 6f 20 69 6e 74 65 | 72 61 63 74 69 76 65 6c | to inte|ractivel|
|00003b10| 79 20 72 65 61 64 20 74 | 68 65 20 76 61 6c 75 65 |y read t|he value|
|00003b20| 2e 0a 0a 49 66 20 56 41 | 52 49 41 42 4c 45 20 68 |...If VA|RIABLE h|
|00003b30| 61 73 20 61 20 60 63 75 | 73 74 6f 6d 2d 74 79 70 |as a `cu|stom-typ|
|00003b40| 65 27 20 70 72 6f 70 65 | 72 74 79 2c 20 69 74 20 |e' prope|rty, it |
|00003b50| 6d 75 73 74 20 62 65 20 | 61 20 77 69 64 67 65 74 |must be |a widget|
|00003b60| 20 61 6e 64 20 74 68 65 | 0a 60 3a 70 72 6f 6d 70 | and the|.`:promp|
|00003b70| 74 2d 76 61 6c 75 65 27 | 20 70 72 6f 70 65 72 74 |t-value'| propert|
|00003b80| 79 20 6f 66 20 74 68 61 | 74 20 77 69 64 67 65 74 |y of tha|t widget|
|00003b90| 20 77 69 6c 6c 20 62 65 | 20 75 73 65 64 20 66 6f | will be| used fo|
|00003ba0| 72 20 72 65 61 64 69 6e | 67 20 74 68 65 20 76 61 |r readin|g the va|
|00003bb0| 6c 75 65 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |lue...(d|efalias |
|00003bc0| 27 63 75 73 74 6f 6d 69 | 7a 65 2d 73 65 74 2d 76 |'customi|ze-set-v|
|00003bd0| 61 6c 75 65 20 23 5b 28 | 76 61 72 20 76 61 6c 29 |alue #[(|var val)|
|00003be0| 20 22 08 09 4c 87 22 20 | 5b 76 61 72 20 76 61 6c | "..L." |[var val|
|00003bf0| 5d 20 32 20 28 23 24 20 | 2e 20 31 34 39 34 31 29 |] 2 (#$ |. 14941)|
|00003c00| 20 28 63 75 73 74 6f 6d | 2d 70 72 6f 6d 70 74 2d | (custom|-prompt-|
|00003c10| 76 61 72 69 61 62 6c 65 | 20 22 53 65 74 20 76 61 |variable| "Set va|
|00003c20| 72 69 61 62 6c 65 3a 20 | 22 20 22 53 65 74 20 25 |riable: |" "Set %|
|00003c30| 73 20 74 6f 20 76 61 6c | 75 65 3a 20 22 29 5d 29 |s to val|ue: ")])|
|00003c40| 0a 23 40 35 38 38 20 53 | 65 74 20 74 68 65 20 64 |.#@588 S|et the d|
|00003c50| 65 66 61 75 6c 74 20 66 | 6f 72 20 56 41 52 49 41 |efault f|or VARIA|
|00003c60| 42 4c 45 20 74 6f 20 56 | 41 4c 55 45 2e 20 20 56 |BLE to V|ALUE. V|
|00003c70| 41 4c 55 45 20 69 73 20 | 61 20 4c 69 73 70 20 6f |ALUE is |a Lisp o|
|00003c80| 62 6a 65 63 74 2e 0a 0a | 49 66 20 56 41 52 49 41 |bject...|If VARIA|
|00003c90| 42 4c 45 20 68 61 73 20 | 61 20 60 63 75 73 74 6f |BLE has |a `custo|
|00003ca0| 6d 2d 73 65 74 27 20 70 | 72 6f 70 65 72 74 79 2c |m-set' p|roperty,|
|00003cb0| 20 74 68 61 74 20 69 73 | 20 75 73 65 64 20 66 6f | that is| used fo|
|00003cc0| 72 20 73 65 74 74 69 6e | 67 0a 56 41 52 49 41 42 |r settin|g.VARIAB|
|00003cd0| 4c 45 2c 20 6f 74 68 65 | 72 77 69 73 65 20 60 73 |LE, othe|rwise `s|
|00003ce0| 65 74 2d 64 65 66 61 75 | 6c 74 27 20 69 73 20 75 |et-defau|lt' is u|
|00003cf0| 73 65 64 2e 0a 0a 54 68 | 65 20 60 63 75 73 74 6f |sed...Th|e `custo|
|00003d00| 6d 69 7a 65 64 2d 76 61 | 6c 75 65 27 20 70 72 6f |mized-va|lue' pro|
|00003d10| 70 65 72 74 79 20 6f 66 | 20 74 68 65 20 56 41 52 |perty of| the VAR|
|00003d20| 49 41 42 4c 45 20 77 69 | 6c 6c 20 62 65 20 73 65 |IABLE wi|ll be se|
|00003d30| 74 20 74 6f 20 61 20 6c | 69 73 74 0a 77 69 74 68 |t to a l|ist.with|
|00003d40| 20 61 20 71 75 6f 74 65 | 64 20 56 41 4c 55 45 20 | a quote|d VALUE |
|00003d50| 61 73 20 69 74 73 20 73 | 6f 6c 65 20 6c 69 73 74 |as its s|ole list|
|00003d60| 20 6d 65 6d 62 65 72 2e | 0a 0a 49 66 20 56 41 52 | member.|..If VAR|
|00003d70| 49 41 42 4c 45 20 68 61 | 73 20 61 20 60 76 61 72 |IABLE ha|s a `var|
|00003d80| 69 61 62 6c 65 2d 69 6e | 74 65 72 61 63 74 69 76 |iable-in|teractiv|
|00003d90| 65 27 20 70 72 6f 70 65 | 72 74 79 2c 20 74 68 61 |e' prope|rty, tha|
|00003da0| 74 20 69 73 20 75 73 65 | 64 20 61 73 20 69 66 0a |t is use|d as if.|
|00003db0| 69 74 20 77 65 72 65 20 | 74 68 65 20 61 72 67 20 |it were |the arg |
|00003dc0| 74 6f 20 60 69 6e 74 65 | 72 61 63 74 69 76 65 27 |to `inte|ractive'|
|00003dd0| 20 28 77 68 69 63 68 20 | 73 65 65 29 20 74 6f 20 | (which |see) to |
|00003de0| 69 6e 74 65 72 61 63 74 | 69 76 65 6c 79 20 72 65 |interact|ively re|
|00003df0| 61 64 20 74 68 65 20 76 | 61 6c 75 65 2e 0a 0a 49 |ad the v|alue...I|
|00003e00| 66 20 56 41 52 49 41 42 | 4c 45 20 68 61 73 20 61 |f VARIAB|LE has a|
|00003e10| 20 60 63 75 73 74 6f 6d | 2d 74 79 70 65 27 20 70 | `custom|-type' p|
|00003e20| 72 6f 70 65 72 74 79 2c | 20 69 74 20 6d 75 73 74 |roperty,| it must|
|00003e30| 20 62 65 20 61 20 77 69 | 64 67 65 74 20 61 6e 64 | be a wi|dget and|
|00003e40| 20 74 68 65 0a 60 3a 70 | 72 6f 6d 70 74 2d 76 61 | the.`:p|rompt-va|
|00003e50| 6c 75 65 27 20 70 72 6f | 70 65 72 74 79 20 6f 66 |lue' pro|perty of|
|00003e60| 20 74 68 61 74 20 77 69 | 64 67 65 74 20 77 69 6c | that wi|dget wil|
|00003e70| 6c 20 62 65 20 75 73 65 | 64 20 66 6f 72 20 72 65 |l be use|d for re|
|00003e80| 61 64 69 6e 67 20 74 68 | 65 20 76 61 6c 75 65 2e |ading th|e value.|
|00003e90| 20 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 75 | ..(defa|lias 'cu|
|00003ea0| 73 74 6f 6d 69 7a 65 2d | 73 65 74 2d 76 61 72 69 |stomize-|set-vari|
|00003eb0| 61 62 6c 65 20 23 5b 28 | 76 61 72 20 76 61 6c 29 |able #[(|var val)|
|00003ec0| 20 22 08 c1 4e ae 81 c2 | 08 0b 5c 22 88 c4 08 c5 | "..N...|..\"....|
|00003ed0| c6 0b 21 43 23 87 22 20 | 5b 76 61 72 20 63 75 73 |..!C#." |[var cus|
|00003ee0| 74 6f 6d 2d 73 65 74 20 | 73 65 74 2d 64 65 66 61 |tom-set |set-defa|
|00003ef0| 75 6c 74 20 76 61 6c 20 | 70 75 74 20 63 75 73 74 |ult val |put cust|
|00003f00| 6f 6d 69 7a 65 64 2d 76 | 61 6c 75 65 20 63 75 73 |omized-v|alue cus|
|00003f10| 74 6f 6d 2d 71 75 6f 74 | 65 5d 20 35 20 28 23 24 |tom-quot|e] 5 (#$|
|00003f20| 20 2e 20 31 35 34 33 31 | 29 20 28 63 75 73 74 6f | . 15431|) (custo|
|00003f30| 6d 2d 70 72 6f 6d 70 74 | 2d 76 61 72 69 61 62 6c |m-prompt|-variabl|
|00003f40| 65 20 22 53 65 74 20 76 | 61 72 69 61 62 6c 65 3a |e "Set v|ariable:|
|00003f50| 20 22 20 22 53 65 74 20 | 63 75 73 74 6f 6d 69 7a | " "Set |customiz|
|00003f60| 65 64 20 76 61 6c 75 65 | 20 66 6f 72 20 25 73 20 |ed value| for %s |
|00003f70| 74 6f 3a 20 22 29 5d 29 | 0a 23 40 35 39 35 20 53 |to: ")])|.#@595 S|
|00003f80| 65 74 20 74 68 65 20 64 | 65 66 61 75 6c 74 20 66 |et the d|efault f|
|00003f90| 6f 72 20 56 41 52 49 41 | 42 4c 45 20 74 6f 20 56 |or VARIA|BLE to V|
|00003fa0| 41 4c 55 45 2c 20 61 6e | 64 20 73 61 76 65 20 69 |ALUE, an|d save i|
|00003fb0| 74 20 66 6f 72 20 66 75 | 74 75 72 65 20 73 65 73 |t for fu|ture ses|
|00003fc0| 73 69 6f 6e 73 2e 0a 49 | 66 20 56 41 52 49 41 42 |sions..I|f VARIAB|
|00003fd0| 4c 45 20 68 61 73 20 61 | 20 60 63 75 73 74 6f 6d |LE has a| `custom|
|00003fe0| 2d 73 65 74 27 20 70 72 | 6f 70 65 72 74 79 2c 20 |-set' pr|operty, |
|00003ff0| 74 68 61 74 20 69 73 20 | 75 73 65 64 20 66 6f 72 |that is |used for|
|00004000| 20 73 65 74 74 69 6e 67 | 0a 56 41 52 49 41 42 4c | setting|.VARIABL|
|00004010| 45 2c 20 6f 74 68 65 72 | 77 69 73 65 20 60 73 65 |E, other|wise `se|
|00004020| 74 2d 64 65 66 61 75 6c | 74 27 20 69 73 20 75 73 |t-defaul|t' is us|
|00004030| 65 64 2e 0a 0a 54 68 65 | 20 60 63 75 73 74 6f 6d |ed...The| `custom|
|00004040| 69 7a 65 64 2d 76 61 6c | 75 65 27 20 70 72 6f 70 |ized-val|ue' prop|
|00004050| 65 72 74 79 20 6f 66 20 | 74 68 65 20 56 41 52 49 |erty of |the VARI|
|00004060| 41 42 4c 45 20 77 69 6c | 6c 20 62 65 20 73 65 74 |ABLE wil|l be set|
|00004070| 20 74 6f 20 61 20 6c 69 | 73 74 0a 77 69 74 68 20 | to a li|st.with |
|00004080| 61 20 71 75 6f 74 65 64 | 20 56 41 4c 55 45 20 61 |a quoted| VALUE a|
|00004090| 73 20 69 74 73 20 73 6f | 6c 65 20 6c 69 73 74 20 |s its so|le list |
|000040a0| 6d 65 6d 62 65 72 2e 0a | 0a 49 66 20 56 41 52 49 |member..|.If VARI|
|000040b0| 41 42 4c 45 20 68 61 73 | 20 61 20 60 76 61 72 69 |ABLE has| a `vari|
|000040c0| 61 62 6c 65 2d 69 6e 74 | 65 72 61 63 74 69 76 65 |able-int|eractive|
|000040d0| 27 20 70 72 6f 70 65 72 | 74 79 2c 20 74 68 61 74 |' proper|ty, that|
|000040e0| 20 69 73 20 75 73 65 64 | 20 61 73 20 69 66 0a 69 | is used| as if.i|
|000040f0| 74 20 77 65 72 65 20 74 | 68 65 20 61 72 67 20 74 |t were t|he arg t|
|00004100| 6f 20 60 69 6e 74 65 72 | 61 63 74 69 76 65 27 20 |o `inter|active' |
|00004110| 28 77 68 69 63 68 20 73 | 65 65 29 20 74 6f 20 69 |(which s|ee) to i|
|00004120| 6e 74 65 72 61 63 74 69 | 76 65 6c 79 20 72 65 61 |nteracti|vely rea|
|00004130| 64 20 74 68 65 20 76 61 | 6c 75 65 2e 0a 0a 49 66 |d the va|lue...If|
|00004140| 20 56 41 52 49 41 42 4c | 45 20 68 61 73 20 61 20 | VARIABL|E has a |
|00004150| 60 63 75 73 74 6f 6d 2d | 74 79 70 65 27 20 70 72 |`custom-|type' pr|
|00004160| 6f 70 65 72 74 79 2c 20 | 69 74 20 6d 75 73 74 20 |operty, |it must |
|00004170| 62 65 20 61 20 77 69 64 | 67 65 74 20 61 6e 64 20 |be a wid|get and |
|00004180| 74 68 65 0a 60 3a 70 72 | 6f 6d 70 74 2d 76 61 6c |the.`:pr|ompt-val|
|00004190| 75 65 27 20 70 72 6f 70 | 65 72 74 79 20 6f 66 20 |ue' prop|erty of |
|000041a0| 74 68 61 74 20 77 69 64 | 67 65 74 20 77 69 6c 6c |that wid|get will|
|000041b0| 20 62 65 20 75 73 65 64 | 20 66 6f 72 20 72 65 61 | be used| for rea|
|000041c0| 64 69 6e 67 20 74 68 65 | 20 76 61 6c 75 65 2e 20 |ding the| value. |
|000041d0| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 75 73 |..(defal|ias 'cus|
|000041e0| 74 6f 6d 69 7a 65 2d 73 | 61 76 65 2d 76 61 72 69 |tomize-s|ave-vari|
|000041f0| 61 62 6c 65 20 23 5b 28 | 76 61 72 20 76 61 6c 29 |able #[(|var val)|
|00004200| 20 22 08 c1 4e ae 81 c2 | 08 0b 5c 22 88 c4 08 c5 | "..N...|..\"....|
|00004210| c6 0b 21 43 23 88 c7 20 | 87 22 20 5b 76 61 72 20 |..!C#.. |." [var |
|00004220| 63 75 73 74 6f 6d 2d 73 | 65 74 20 73 65 74 2d 64 |custom-s|et set-d|
|00004230| 65 66 61 75 6c 74 20 76 | 61 6c 20 70 75 74 20 73 |efault v|al put s|
|00004240| 61 76 65 64 2d 76 61 6c | 75 65 20 63 75 73 74 6f |aved-val|ue custo|
|00004250| 6d 2d 71 75 6f 74 65 20 | 63 75 73 74 6f 6d 2d 73 |m-quote |custom-s|
|00004260| 61 76 65 2d 61 6c 6c 5d | 20 35 20 28 23 24 20 2e |ave-all]| 5 (#$ .|
|00004270| 20 31 36 32 35 35 29 20 | 28 63 75 73 74 6f 6d 2d | 16255) |(custom-|
|00004280| 70 72 6f 6d 70 74 2d 76 | 61 72 69 61 62 6c 65 20 |prompt-v|ariable |
|00004290| 22 53 65 74 20 61 6e 64 | 20 61 76 65 20 76 61 72 |"Set and| ave var|
|000042a0| 69 61 62 6c 65 3a 20 22 | 20 22 53 65 74 20 61 6e |iable: "| "Set an|
|000042b0| 64 20 73 61 76 65 20 76 | 61 6c 75 65 20 66 6f 72 |d save v|alue for|
|000042c0| 20 25 73 20 61 73 3a 20 | 22 29 5d 29 0a 23 40 31 | %s as: |")]).#@1|
|000042d0| 34 33 20 53 65 6c 65 63 | 74 20 61 20 63 75 73 74 |43 Selec|t a cust|
|000042e0| 6f 6d 69 7a 61 74 69 6f | 6e 20 62 75 66 66 65 72 |omizatio|n buffer|
|000042f0| 20 77 68 69 63 68 20 79 | 6f 75 20 63 61 6e 20 75 | which y|ou can u|
|00004300| 73 65 20 74 6f 20 73 65 | 74 20 75 73 65 72 20 6f |se to se|t user o|
|00004310| 70 74 69 6f 6e 73 2e 0a | 55 73 65 72 20 6f 70 74 |ptions..|User opt|
|00004320| 69 6f 6e 73 20 61 72 65 | 20 73 74 72 75 63 74 75 |ions are| structu|
|00004330| 72 65 64 20 69 6e 74 6f | 20 22 67 72 6f 75 70 73 |red into| "groups|
|00004340| 22 2e 0a 54 68 65 20 64 | 65 66 61 75 6c 74 20 67 |"..The d|efault g|
|00004350| 72 6f 75 70 20 69 73 20 | 60 45 6d 61 63 73 27 2e |roup is |`Emacs'.|
|00004360| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 75 73 |..(defal|ias 'cus|
|00004370| 74 6f 6d 69 7a 65 20 23 | 5b 28 67 72 6f 75 70 29 |tomize #|[(group)|
|00004380| 20 22 08 3b ab 8d 08 c1 | 98 ab 84 c2 10 aa 84 c3 | ".;....|........|
|00004390| 08 21 10 c4 c5 c6 08 21 | 5c 22 1e 07 c8 0e 07 21 |.!.....!|\".....!|
|000043a0| ab 86 c9 0e 07 21 aa 8d | ca 08 cb 44 43 0e 07 cc |.....!..|...DC...|
|000043b0| c6 08 21 50 23 29 87 22 | 20 5b 67 72 6f 75 70 20 |..!P#)."| [group |
|000043c0| 22 22 20 65 6d 61 63 73 | 20 69 6e 74 65 72 6e 20 |"" emacs| intern |
|000043d0| 66 6f 72 6d 61 74 20 22 | 2a 43 75 73 74 6f 6d 69 |format "|*Customi|
|000043e0| 7a 65 20 47 72 6f 75 70 | 3a 20 25 73 2a 22 20 63 |ze Group|: %s*" c|
|000043f0| 75 73 74 6f 6d 2d 75 6e | 6c 69 73 70 69 66 79 2d |ustom-un|lispify-|
|00004400| 74 61 67 2d 6e 61 6d 65 | 20 6e 61 6d 65 20 67 65 |tag-name| name ge|
|00004410| 74 2d 62 75 66 66 65 72 | 20 73 77 69 74 63 68 2d |t-buffer| switch-|
|00004420| 74 6f 2d 62 75 66 66 65 | 72 20 63 75 73 74 6f 6d |to-buffe|r custom|
|00004430| 2d 62 75 66 66 65 72 2d | 63 72 65 61 74 65 20 63 |-buffer-|create c|
|00004440| 75 73 74 6f 6d 2d 67 72 | 6f 75 70 20 22 20 66 6f |ustom-gr|oup " fo|
|00004450| 72 20 67 72 6f 75 70 20 | 22 5d 20 36 20 28 23 24 |r group |"] 6 (#$|
|00004460| 20 2e 20 31 37 31 30 37 | 29 20 28 63 75 73 74 6f | . 17107|) (custo|
|00004470| 6d 2d 67 72 6f 75 70 2d | 70 72 6f 6d 70 74 20 22 |m-group-|prompt "|
|00004480| 43 75 73 74 6f 6d 69 7a | 65 20 67 72 6f 75 70 3a |Customiz|e group:|
|00004490| 20 28 64 65 66 61 75 6c | 74 20 65 6d 61 63 73 29 | (defaul|t emacs)|
|000044a0| 20 22 29 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 | ")]).(d|efalias |
|000044b0| 27 63 75 73 74 6f 6d 69 | 7a 65 2d 67 72 6f 75 70 |'customi|ze-group|
|000044c0| 20 27 63 75 73 74 6f 6d | 69 7a 65 29 0a 23 40 35 | 'custom|ize).#@5|
|000044d0| 36 20 43 75 73 74 6f 6d | 69 7a 65 20 53 59 4d 42 |6 Custom|ize SYMB|
|000044e0| 4f 4c 2c 20 77 68 69 63 | 68 20 6d 75 73 74 20 62 |OL, whic|h must b|
|000044f0| 65 20 61 20 63 75 73 74 | 6f 6d 69 7a 61 74 69 6f |e a cust|omizatio|
|00004500| 6e 20 67 72 6f 75 70 2e | 1f 0a 28 64 65 66 61 6c |n group.|..(defal|
|00004510| 69 61 73 20 27 63 75 73 | 74 6f 6d 69 7a 65 2d 6f |ias 'cus|tomize-o|
|00004520| 74 68 65 72 2d 77 69 6e | 64 6f 77 20 23 5b 28 73 |ther-win|dow #[(s|
|00004530| 79 6d 62 6f 6c 29 20 22 | 08 3b ab 8d 08 c1 98 ab |ymbol) "|.;......|
|00004540| 84 c2 10 aa 84 c3 08 21 | 10 c4 08 c5 44 43 c6 c7 |.......!|....DC..|
|00004550| c8 08 21 5c 22 5c 22 87 | 22 20 5b 73 79 6d 62 6f |..!\"\".|" [symbo|
|00004560| 6c 20 22 22 20 65 6d 61 | 63 73 20 69 6e 74 65 72 |l "" ema|cs inter|
|00004570| 6e 20 63 75 73 74 6f 6d | 2d 62 75 66 66 65 72 2d |n custom|-buffer-|
|00004580| 63 72 65 61 74 65 2d 6f | 74 68 65 72 2d 77 69 6e |create-o|ther-win|
|00004590| 64 6f 77 20 63 75 73 74 | 6f 6d 2d 67 72 6f 75 70 |dow cust|om-group|
|000045a0| 20 66 6f 72 6d 61 74 20 | 22 2a 43 75 73 74 6f 6d | format |"*Custom|
|000045b0| 69 7a 65 20 47 72 6f 75 | 70 3a 20 25 73 2a 22 20 |ize Grou|p: %s*" |
|000045c0| 63 75 73 74 6f 6d 2d 75 | 6e 6c 69 73 70 69 66 79 |custom-u|nlispify|
|000045d0| 2d 74 61 67 2d 6e 61 6d | 65 5d 20 36 20 28 23 24 |-tag-nam|e] 6 (#$|
|000045e0| 20 2e 20 31 37 36 31 38 | 29 20 28 63 75 73 74 6f | . 17618|) (custo|
|000045f0| 6d 2d 67 72 6f 75 70 2d | 70 72 6f 6d 70 74 20 22 |m-group-|prompt "|
|00004600| 43 75 73 74 6f 6d 69 7a | 65 20 67 72 6f 75 70 3a |Customiz|e group:|
|00004610| 20 28 64 65 66 61 75 6c | 74 20 65 6d 61 63 73 29 | (defaul|t emacs)|
|00004620| 20 22 29 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 | ")]).(b|yte-code|
|00004630| 20 22 c0 c1 c2 5c 22 88 | c0 c3 c4 5c 22 87 22 20 | "...\".|...\"." |
|00004640| 5b 64 65 66 61 6c 69 61 | 73 20 63 75 73 74 6f 6d |[defalia|s custom|
|00004650| 69 7a 65 2d 67 72 6f 75 | 70 2d 6f 74 68 65 72 2d |ize-grou|p-other-|
|00004660| 77 69 6e 64 6f 77 20 63 | 75 73 74 6f 6d 69 7a 65 |window c|ustomize|
|00004670| 2d 6f 74 68 65 72 2d 77 | 69 6e 64 6f 77 20 63 75 |-other-w|indow cu|
|00004680| 73 74 6f 6d 69 7a 65 2d | 6f 70 74 69 6f 6e 20 63 |stomize-|option c|
|00004690| 75 73 74 6f 6d 69 7a 65 | 2d 76 61 72 69 61 62 6c |ustomize|-variabl|
|000046a0| 65 5d 20 33 29 0a 23 40 | 35 37 20 43 75 73 74 6f |e] 3).#@|57 Custo|
|000046b0| 6d 69 7a 65 20 53 59 4d | 42 4f 4c 2c 20 77 68 69 |mize SYM|BOL, whi|
|000046c0| 63 68 20 6d 75 73 74 20 | 62 65 20 61 20 75 73 65 |ch must |be a use|
|000046d0| 72 20 6f 70 74 69 6f 6e | 20 76 61 72 69 61 62 6c |r option| variabl|
|000046e0| 65 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |e...(def|alias 'c|
|000046f0| 75 73 74 6f 6d 69 7a 65 | 2d 76 61 72 69 61 62 6c |ustomize|-variabl|
|00004700| 65 20 23 5b 28 73 79 6d | 62 6f 6c 29 20 22 c0 09 |e #[(sym|bol) "..|
|00004710| c2 44 43 c3 c4 c5 09 21 | 5c 22 5c 22 87 22 20 5b |.DC....!|\"\"." [|
|00004720| 63 75 73 74 6f 6d 2d 62 | 75 66 66 65 72 2d 63 72 |custom-b|uffer-cr|
|00004730| 65 61 74 65 20 73 79 6d | 62 6f 6c 20 63 75 73 74 |eate sym|bol cust|
|00004740| 6f 6d 2d 76 61 72 69 61 | 62 6c 65 20 66 6f 72 6d |om-varia|ble form|
|00004750| 61 74 20 22 2a 43 75 73 | 74 6f 6d 69 7a 65 20 56 |at "*Cus|tomize V|
|00004760| 61 72 69 61 62 6c 65 3a | 20 25 73 2a 22 20 63 75 |ariable:| %s*" cu|
|00004770| 73 74 6f 6d 2d 75 6e 6c | 69 73 70 69 66 79 2d 74 |stom-unl|ispify-t|
|00004780| 61 67 2d 6e 61 6d 65 5d | 20 36 20 28 23 24 20 2e |ag-name]| 6 (#$ .|
|00004790| 20 31 38 30 39 31 29 20 | 28 63 75 73 74 6f 6d 2d | 18091) |(custom-|
|000047a0| 76 61 72 69 61 62 6c 65 | 2d 70 72 6f 6d 70 74 29 |variable|-prompt)|
|000047b0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 75 |]).(defa|lias 'cu|
|000047c0| 73 74 6f 6d 69 7a 65 2d | 76 61 72 69 61 62 6c 65 |stomize-|variable|
|000047d0| 2d 6f 74 68 65 72 2d 77 | 69 6e 64 6f 77 20 27 63 |-other-w|indow 'c|
|000047e0| 75 73 74 6f 6d 69 7a 65 | 2d 6f 70 74 69 6f 6e 2d |ustomize|-option-|
|000047f0| 6f 74 68 65 72 2d 77 69 | 6e 64 6f 77 29 0a 23 40 |other-wi|ndow).#@|
|00004800| 31 31 33 20 43 75 73 74 | 6f 6d 69 7a 65 20 53 59 |113 Cust|omize SY|
|00004810| 4d 42 4f 4c 2c 20 77 68 | 69 63 68 20 6d 75 73 74 |MBOL, wh|ich must|
|00004820| 20 62 65 20 61 20 75 73 | 65 72 20 6f 70 74 69 6f | be a us|er optio|
|00004830| 6e 20 76 61 72 69 61 62 | 6c 65 2e 0a 53 68 6f 77 |n variab|le..Show|
|00004840| 20 74 68 65 20 62 75 66 | 66 65 72 20 69 6e 20 61 | the buf|fer in a|
|00004850| 6e 6f 74 68 65 72 20 77 | 69 6e 64 6f 77 2c 20 62 |nother w|indow, b|
|00004860| 75 74 20 64 6f 6e 27 74 | 20 73 65 6c 65 63 74 20 |ut don't| select |
|00004870| 69 74 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |it...(de|falias '|
|00004880| 63 75 73 74 6f 6d 69 7a | 65 2d 6f 70 74 69 6f 6e |customiz|e-option|
|00004890| 2d 6f 74 68 65 72 2d 77 | 69 6e 64 6f 77 20 23 5b |-other-w|indow #[|
|000048a0| 28 73 79 6d 62 6f 6c 29 | 20 22 c0 09 c2 44 43 c3 |(symbol)| "...DC.|
|000048b0| c4 c5 09 21 5c 22 5c 22 | 87 22 20 5b 63 75 73 74 |...!\"\"|." [cust|
|000048c0| 6f 6d 2d 62 75 66 66 65 | 72 2d 63 72 65 61 74 65 |om-buffe|r-create|
|000048d0| 2d 6f 74 68 65 72 2d 77 | 69 6e 64 6f 77 20 73 79 |-other-w|indow sy|
|000048e0| 6d 62 6f 6c 20 63 75 73 | 74 6f 6d 2d 76 61 72 69 |mbol cus|tom-vari|
|000048f0| 61 62 6c 65 20 66 6f 72 | 6d 61 74 20 22 2a 43 75 |able for|mat "*Cu|
|00004900| 73 74 6f 6d 69 7a 65 20 | 4f 70 74 69 6f 6e 3a 20 |stomize |Option: |
|00004910| 25 73 2a 22 20 63 75 73 | 74 6f 6d 2d 75 6e 6c 69 |%s*" cus|tom-unli|
|00004920| 73 70 69 66 79 2d 74 61 | 67 2d 6e 61 6d 65 5d 20 |spify-ta|g-name] |
|00004930| 36 20 28 23 24 20 2e 20 | 31 38 34 33 36 29 20 28 |6 (#$ . |18436) (|
|00004940| 63 75 73 74 6f 6d 2d 76 | 61 72 69 61 62 6c 65 2d |custom-v|ariable-|
|00004950| 70 72 6f 6d 70 74 29 5d | 29 0a 23 40 39 34 20 43 |prompt)]|).#@94 C|
|00004960| 75 73 74 6f 6d 69 7a 65 | 20 53 59 4d 42 4f 4c 2c |ustomize| SYMBOL,|
|00004970| 20 77 68 69 63 68 20 73 | 68 6f 75 6c 64 20 62 65 | which s|hould be|
|00004980| 20 61 20 66 61 63 65 20 | 6e 61 6d 65 20 6f 72 20 | a face |name or |
|00004990| 6e 69 6c 2e 0a 49 66 20 | 53 59 4d 42 4f 4c 20 69 |nil..If |SYMBOL i|
|000049a0| 73 20 6e 69 6c 2c 20 63 | 75 73 74 6f 6d 69 7a 65 |s nil, c|ustomize|
|000049b0| 20 61 6c 6c 20 66 61 63 | 65 73 2e 1f 0a 28 64 65 | all fac|es...(de|
|000049c0| 66 61 6c 69 61 73 20 27 | 63 75 73 74 6f 6d 69 7a |falias '|customiz|
|000049d0| 65 2d 66 61 63 65 20 23 | 5b 28 26 6f 70 74 69 6f |e-face #|[(&optio|
|000049e0| 6e 61 6c 20 73 79 6d 62 | 6f 6c 29 20 22 08 ab 8a |nal symb|ol) "...|
|000049f0| 08 3b ab 93 08 47 c1 55 | ab 8d c2 c3 c4 c5 c6 20 |.;...G.U|....... |
|00004a00| 5c 22 c7 c8 23 c9 5c 22 | 87 08 3b ab 84 ca 08 21 |\"..#.\"|..;....!|
|00004a10| 10 08 39 ac 85 cb cc 08 | 5c 22 88 c2 08 cd 44 43 |..9.....|\"....DC|
|00004a20| ce cf d0 08 21 5c 22 5c | 22 87 22 20 5b 73 79 6d |....!\"\|"." [sym|
|00004a30| 62 6f 6c 20 30 20 63 75 | 73 74 6f 6d 2d 62 75 66 |bol 0 cu|stom-buf|
|00004a40| 66 65 72 2d 63 72 65 61 | 74 65 20 63 75 73 74 6f |fer-crea|te custo|
|00004a50| 6d 2d 73 6f 72 74 2d 69 | 74 65 6d 73 20 6d 61 70 |m-sort-i|tems map|
|00004a60| 63 61 72 20 23 5b 28 73 | 79 6d 62 6f 6c 29 20 22 |car #[(s|ymbol) "|
|00004a70| 08 c1 44 87 22 20 5b 73 | 79 6d 62 6f 6c 20 63 75 |..D." [s|ymbol cu|
|00004a80| 73 74 6f 6d 2d 66 61 63 | 65 5d 20 32 5d 20 66 61 |stom-fac|e] 2] fa|
|00004a90| 63 65 2d 6c 69 73 74 20 | 74 20 6e 69 6c 20 22 2a |ce-list |t nil "*|
|00004aa0| 43 75 73 74 6f 6d 69 7a | 65 20 46 61 63 65 73 2a |Customiz|e Faces*|
|00004ab0| 22 20 69 6e 74 65 72 6e | 20 65 72 72 6f 72 20 22 |" intern| error "|
|00004ac0| 53 68 6f 75 6c 64 20 62 | 65 20 61 20 73 79 6d 62 |Should b|e a symb|
|00004ad0| 6f 6c 20 25 53 22 20 63 | 75 73 74 6f 6d 2d 66 61 |ol %S" c|ustom-fa|
|00004ae0| 63 65 20 66 6f 72 6d 61 | 74 20 22 2a 43 75 73 74 |ce forma|t "*Cust|
|00004af0| 6f 6d 69 7a 65 20 46 61 | 63 65 3a 20 25 73 2a 22 |omize Fa|ce: %s*"|
|00004b00| 20 63 75 73 74 6f 6d 2d | 75 6e 6c 69 73 70 69 66 | custom-|unlispif|
|00004b10| 79 2d 74 61 67 2d 6e 61 | 6d 65 5d 20 36 20 28 23 |y-tag-na|me] 6 (#|
|00004b20| 24 20 2e 20 31 38 37 38 | 33 29 20 28 6c 69 73 74 |$ . 1878|3) (list|
|00004b30| 20 28 63 6f 6d 70 6c 65 | 74 69 6e 67 2d 72 65 61 | (comple|ting-rea|
|00004b40| 64 20 22 43 75 73 74 6f | 6d 69 7a 65 20 66 61 63 |d "Custo|mize fac|
|00004b50| 65 3a 20 28 64 65 66 61 | 75 6c 74 20 61 6c 6c 29 |e: (defa|ult all)|
|00004b60| 20 22 20 6f 62 61 72 72 | 61 79 20 27 66 69 6e 64 | " obarr|ay 'find|
|00004b70| 2d 66 61 63 65 29 29 5d | 29 0a 23 40 35 33 20 53 |-face))]|).#@53 S|
|00004b80| 68 6f 77 20 63 75 73 74 | 6f 6d 69 7a 61 74 69 6f |how cust|omizatio|
|00004b90| 6e 20 62 75 66 66 65 72 | 20 66 6f 72 20 46 41 43 |n buffer| for FAC|
|00004ba0| 45 20 69 6e 20 6f 74 68 | 65 72 20 77 69 6e 64 6f |E in oth|er windo|
|00004bb0| 77 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |w...(def|alias 'c|
|00004bc0| 75 73 74 6f 6d 69 7a 65 | 2d 66 61 63 65 2d 6f 74 |ustomize|-face-ot|
|00004bd0| 68 65 72 2d 77 69 6e 64 | 6f 77 20 23 5b 28 26 6f |her-wind|ow #[(&o|
|00004be0| 70 74 69 6f 6e 61 6c 20 | 73 79 6d 62 6f 6c 29 20 |ptional |symbol) |
|00004bf0| 22 08 3f ae 88 08 3b ad | 84 08 47 c1 55 3f ad 9d |".?...;.|..G.U?..|
|00004c00| 08 3b ab 84 c2 08 21 10 | 08 39 ac 85 c3 c4 08 5c |.;....!.|.9.....\|
|00004c10| 22 88 c5 08 c6 44 43 c7 | c8 c9 08 21 5c 22 5c 22 |"....DC.|...!\"\"|
|00004c20| 87 22 20 5b 73 79 6d 62 | 6f 6c 20 30 20 69 6e 74 |." [symb|ol 0 int|
|00004c30| 65 72 6e 20 65 72 72 6f | 72 20 22 53 68 6f 75 6c |ern erro|r "Shoul|
|00004c40| 64 20 62 65 20 61 20 73 | 79 6d 62 6f 6c 20 25 53 |d be a s|ymbol %S|
|00004c50| 22 20 63 75 73 74 6f 6d | 2d 62 75 66 66 65 72 2d |" custom|-buffer-|
|00004c60| 63 72 65 61 74 65 2d 6f | 74 68 65 72 2d 77 69 6e |create-o|ther-win|
|00004c70| 64 6f 77 20 63 75 73 74 | 6f 6d 2d 66 61 63 65 20 |dow cust|om-face |
|00004c80| 66 6f 72 6d 61 74 20 22 | 2a 43 75 73 74 6f 6d 69 |format "|*Customi|
|00004c90| 7a 65 20 46 61 63 65 3a | 20 25 73 2a 22 20 63 75 |ze Face:| %s*" cu|
|00004ca0| 73 74 6f 6d 2d 75 6e 6c | 69 73 70 69 66 79 2d 74 |stom-unl|ispify-t|
|00004cb0| 61 67 2d 6e 61 6d 65 5d | 20 36 20 28 23 24 20 2e |ag-name]| 6 (#$ .|
|00004cc0| 20 31 39 33 32 37 29 20 | 28 6c 69 73 74 20 28 63 | 19327) |(list (c|
|00004cd0| 6f 6d 70 6c 65 74 69 6e | 67 2d 72 65 61 64 20 22 |ompletin|g-read "|
|00004ce0| 43 75 73 74 6f 6d 69 7a | 65 20 66 61 63 65 3a 20 |Customiz|e face: |
|00004cf0| 22 20 6f 62 61 72 72 61 | 79 20 27 66 69 6e 64 2d |" obarra|y 'find-|
|00004d00| 66 61 63 65 29 29 5d 29 | 0a 23 40 36 39 20 43 75 |face))])|.#@69 Cu|
|00004d10| 73 74 6f 6d 69 7a 65 20 | 61 6c 6c 20 75 73 65 72 |stomize |all user|
|00004d20| 20 6f 70 74 69 6f 6e 73 | 20 73 65 74 20 73 69 6e | options| set sin|
|00004d30| 63 65 20 74 68 65 20 6c | 61 73 74 20 73 61 76 65 |ce the l|ast save|
|00004d40| 20 69 6e 20 74 68 69 73 | 20 73 65 73 73 69 6f 6e | in this| session|
|00004d50| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 63 75 |...(defa|lias 'cu|
|00004d60| 73 74 6f 6d 69 7a 65 2d | 63 75 73 74 6f 6d 69 7a |stomize-|customiz|
|00004d70| 65 64 20 23 5b 6e 69 6c | 20 22 c0 19 c2 c3 21 88 |ed #[nil| "....!.|
|00004d80| 09 ac 85 c4 c5 21 aa 88 | c6 c7 09 c8 c0 23 c9 5c |.....!..|.....#.\|
|00004d90| 22 29 87 22 20 5b 6e 69 | 6c 20 66 6f 75 6e 64 20 |")." [ni|l found |
|00004da0| 6d 61 70 61 74 6f 6d 73 | 20 23 5b 28 73 79 6d 62 |mapatoms| #[(symb|
|00004db0| 6f 6c 29 20 22 08 c1 4e | ab 8b c2 08 21 ab 86 08 |ol) "..N|....!...|
|00004dc0| c3 44 0c 42 14 08 c5 4e | ad 8c c6 08 21 ad 87 08 |.D.B...N|....!...|
|00004dd0| c7 44 0c 42 89 14 87 22 | 20 5b 73 79 6d 62 6f 6c |.D.B..."| [symbol|
|00004de0| 20 63 75 73 74 6f 6d 69 | 7a 65 64 2d 66 61 63 65 | customi|zed-face|
|00004df0| 20 66 69 6e 64 2d 66 61 | 63 65 20 63 75 73 74 6f | find-fa|ce custo|
|00004e00| 6d 2d 66 61 63 65 20 66 | 6f 75 6e 64 20 63 75 73 |m-face f|ound cus|
|00004e10| 74 6f 6d 69 7a 65 64 2d | 76 61 6c 75 65 20 62 6f |tomized-|value bo|
|00004e20| 75 6e 64 70 20 63 75 73 | 74 6f 6d 2d 76 61 72 69 |undp cus|tom-vari|
|00004e30| 61 62 6c 65 5d 20 32 5d | 20 65 72 72 6f 72 20 22 |able] 2]| error "|
|00004e40| 4e 6f 20 63 75 73 74 6f | 6d 69 7a 65 64 20 75 73 |No custo|mized us|
|00004e50| 65 72 20 6f 70 74 69 6f | 6e 73 22 20 63 75 73 74 |er optio|ns" cust|
|00004e60| 6f 6d 2d 62 75 66 66 65 | 72 2d 63 72 65 61 74 65 |om-buffe|r-create|
|00004e70| 20 63 75 73 74 6f 6d 2d | 73 6f 72 74 2d 69 74 65 | custom-|sort-ite|
|00004e80| 6d 73 20 74 20 22 2a 43 | 75 73 74 6f 6d 69 7a 65 |ms t "*C|ustomize|
|00004e90| 20 43 75 73 74 6f 6d 69 | 7a 65 64 2a 22 5d 20 35 | Customi|zed*"] 5|
|00004ea0| 20 28 23 24 20 2e 20 31 | 39 37 32 36 29 20 6e 69 | (#$ . 1|9726) ni|
|00004eb0| 6c 5d 29 0a 23 40 34 33 | 20 43 75 73 74 6f 6d 69 |l]).#@43| Customi|
|00004ec0| 7a 65 20 61 6c 6c 20 61 | 6c 72 65 61 64 79 20 73 |ze all a|lready s|
|00004ed0| 61 76 65 64 20 75 73 65 | 72 20 6f 70 74 69 6f 6e |aved use|r option|
|00004ee0| 73 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |s...(def|alias 'c|
|00004ef0| 75 73 74 6f 6d 69 7a 65 | 2d 73 61 76 65 64 20 23 |ustomize|-saved #|
|00004f00| 5b 6e 69 6c 20 22 c0 19 | c2 c3 21 88 09 ac 85 c4 |[nil "..|..!.....|
|00004f10| c5 21 aa 88 c6 c7 09 c8 | c0 23 c9 5c 22 29 87 22 |.!......|.#.\")."|
|00004f20| 20 5b 6e 69 6c 20 66 6f | 75 6e 64 20 6d 61 70 61 | [nil fo|und mapa|
|00004f30| 74 6f 6d 73 20 23 5b 28 | 73 79 6d 62 6f 6c 29 20 |toms #[(|symbol) |
|00004f40| 22 08 c1 4e ab 8b c2 08 | 21 ab 86 08 c3 44 0c 42 |"..N....|!....D.B|
|00004f50| 14 08 c5 4e ad 8c c6 08 | 21 ad 87 08 c7 44 0c 42 |...N....|!....D.B|
|00004f60| 89 14 87 22 20 5b 73 79 | 6d 62 6f 6c 20 73 61 76 |..." [sy|mbol sav|
|00004f70| 65 64 2d 66 61 63 65 20 | 66 69 6e 64 2d 66 61 63 |ed-face |find-fac|
|00004f80| 65 20 63 75 73 74 6f 6d | 2d 66 61 63 65 20 66 6f |e custom|-face fo|
|00004f90| 75 6e 64 20 73 61 76 65 | 64 2d 76 61 6c 75 65 20 |und save|d-value |
|00004fa0| 62 6f 75 6e 64 70 20 63 | 75 73 74 6f 6d 2d 76 61 |boundp c|ustom-va|
|00004fb0| 72 69 61 62 6c 65 5d 20 | 32 5d 20 65 72 72 6f 72 |riable] |2] error|
|00004fc0| 20 22 4e 6f 20 73 61 76 | 65 64 20 75 73 65 72 20 | "No sav|ed user |
|00004fd0| 6f 70 74 69 6f 6e 73 22 | 20 63 75 73 74 6f 6d 2d |options"| custom-|
|00004fe0| 62 75 66 66 65 72 2d 63 | 72 65 61 74 65 20 63 75 |buffer-c|reate cu|
|00004ff0| 73 74 6f 6d 2d 73 6f 72 | 74 2d 69 74 65 6d 73 20 |stom-sor|t-items |
|00005000| 74 20 22 2a 43 75 73 74 | 6f 6d 69 7a 65 20 53 61 |t "*Cust|omize Sa|
|00005010| 76 65 64 2a 22 5d 20 35 | 20 28 23 24 20 2e 20 32 |ved*"] 5| (#$ . 2|
|00005020| 30 31 35 33 29 20 6e 69 | 6c 5d 29 0a 23 40 32 38 |0153) ni|l]).#@28|
|00005030| 38 20 43 75 73 74 6f 6d | 69 7a 65 20 61 6c 6c 20 |8 Custom|ize all |
|00005040| 75 73 65 72 20 6f 70 74 | 69 6f 6e 73 20 6d 61 74 |user opt|ions mat|
|00005050| 63 68 69 6e 67 20 52 45 | 47 45 58 50 2e 0a 49 66 |ching RE|GEXP..If|
|00005060| 20 41 4c 4c 20 69 73 20 | 60 6f 70 74 69 6f 6e 73 | ALL is |`options|
|00005070| 27 2c 20 69 6e 63 6c 75 | 64 65 20 6f 6e 6c 79 20 |', inclu|de only |
|00005080| 6f 70 74 69 6f 6e 73 2e | 0a 49 66 20 41 4c 4c 20 |options.|.If ALL |
|00005090| 69 73 20 60 66 61 63 65 | 73 27 2c 20 69 6e 63 6c |is `face|s', incl|
|000050a0| 75 64 65 20 6f 6e 6c 79 | 20 66 61 63 65 73 2e 0a |ude only| faces..|
|000050b0| 49 66 20 41 4c 4c 20 69 | 73 20 60 67 72 6f 75 70 |If ALL i|s `group|
|000050c0| 73 27 2c 20 69 6e 63 6c | 75 64 65 20 6f 6e 6c 79 |s', incl|ude only|
|000050d0| 20 67 72 6f 75 70 73 2e | 0a 49 66 20 41 4c 4c 20 | groups.|.If ALL |
|000050e0| 69 73 20 74 20 28 69 6e | 74 65 72 61 63 74 69 76 |is t (in|teractiv|
|000050f0| 65 6c 79 2c 20 77 69 74 | 68 20 70 72 65 66 69 78 |ely, wit|h prefix|
|00005100| 20 61 72 67 29 2c 20 69 | 6e 63 6c 75 64 65 20 6f | arg), i|nclude o|
|00005110| 70 74 69 6f 6e 73 20 77 | 68 69 63 68 20 61 72 65 |ptions w|hich are|
|00005120| 20 6e 6f 74 0a 75 73 65 | 72 2d 73 65 74 74 61 62 | not.use|r-settab|
|00005130| 6c 65 2c 20 61 73 20 77 | 65 6c 6c 20 61 73 20 66 |le, as w|ell as f|
|00005140| 61 63 65 73 20 61 6e 64 | 20 67 72 6f 75 70 73 2e |aces and| groups.|
|00005150| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 75 73 |..(defal|ias 'cus|
|00005160| 74 6f 6d 69 7a 65 2d 61 | 70 72 6f 70 6f 73 20 23 |tomize-a|propos #|
|00005170| 5b 28 72 65 67 65 78 70 | 20 26 6f 70 74 69 6f 6e |[(regexp| &option|
|00005180| 61 6c 20 61 6c 6c 29 20 | 22 c0 19 c2 c3 21 88 09 |al all) |"....!..|
|00005190| ac 85 c4 c5 21 aa 89 c6 | c7 09 c8 0e 09 23 ca 5c |....!...|.....#.\|
|000051a0| 22 29 87 22 20 5b 6e 69 | 6c 20 66 6f 75 6e 64 20 |")." [ni|l found |
|000051b0| 6d 61 70 61 74 6f 6d 73 | 20 23 5b 28 73 79 6d 62 |mapatoms| #[(symb|
|000051c0| 6f 6c 29 20 22 c0 09 c2 | 0b 21 5c 22 ad d1 0c c5 |ol) "...|.!\"....|
|000051d0| 73 ac 8d 0b c6 4e ab 88 | 0b c6 44 0e 07 42 16 07 |s....N..|..D..B..|
|000051e0| 0c c8 73 ac 8d c9 0b 21 | ab 88 0b ca 44 0e 07 42 |..s....!|....D..B|
|000051f0| 16 07 0c cb 73 3f ad a7 | cc 0b 21 ad a2 0b cd 4e |....s?..|..!....N|
|00005200| ac 94 0b ce 4e ac 8f 0c | cf 73 ab 85 d0 0b 21 aa |....N...|.s....!.|
|00005210| 83 0b d1 4e ad 89 0b d2 | 44 0e 07 42 89 16 07 87 |...N....|D..B....|
|00005220| 22 20 5b 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |" [strin|g-match |
|00005230| 72 65 67 65 78 70 20 73 | 79 6d 62 6f 6c 2d 6e 61 |regexp s|ymbol-na|
|00005240| 6d 65 20 73 79 6d 62 6f | 6c 20 61 6c 6c 20 28 66 |me symbo|l all (f|
|00005250| 61 63 65 73 20 6f 70 74 | 69 6f 6e 73 29 20 63 75 |aces opt|ions) cu|
|00005260| 73 74 6f 6d 2d 67 72 6f | 75 70 20 66 6f 75 6e 64 |stom-gro|up found|
|00005270| 20 28 6f 70 74 69 6f 6e | 73 20 67 72 6f 75 70 73 | (option|s groups|
|00005280| 29 20 66 69 6e 64 2d 66 | 61 63 65 20 63 75 73 74 |) find-f|ace cust|
|00005290| 6f 6d 2d 66 61 63 65 20 | 28 67 72 6f 75 70 73 20 |om-face |(groups |
|000052a0| 66 61 63 65 73 29 20 62 | 6f 75 6e 64 70 20 73 61 |faces) b|oundp sa|
|000052b0| 76 65 64 2d 76 61 6c 75 | 65 20 73 74 61 6e 64 61 |ved-valu|e standa|
|000052c0| 72 64 2d 76 61 6c 75 65 | 20 28 6e 69 6c 20 6f 70 |rd-value| (nil op|
|000052d0| 74 69 6f 6e 73 29 20 75 | 73 65 72 2d 76 61 72 69 |tions) u|ser-vari|
|000052e0| 61 62 6c 65 2d 70 20 76 | 61 72 69 61 62 6c 65 2d |able-p v|ariable-|
|000052f0| 64 6f 63 75 6d 65 6e 74 | 61 74 69 6f 6e 20 63 75 |document|ation cu|
|00005300| 73 74 6f 6d 2d 76 61 72 | 69 61 62 6c 65 5d 20 34 |stom-var|iable] 4|
|00005310| 5d 20 65 72 72 6f 72 20 | 22 4e 6f 20 6d 61 74 63 |] error |"No matc|
|00005320| 68 65 73 22 20 63 75 73 | 74 6f 6d 2d 62 75 66 66 |hes" cus|tom-buff|
|00005330| 65 72 2d 63 72 65 61 74 | 65 20 63 75 73 74 6f 6d |er-creat|e custom|
|00005340| 2d 73 6f 72 74 2d 69 74 | 65 6d 73 20 74 20 63 75 |-sort-it|ems t cu|
|00005350| 73 74 6f 6d 2d 62 75 66 | 66 65 72 2d 6f 72 64 65 |stom-buf|fer-orde|
|00005360| 72 2d 67 72 6f 75 70 73 | 20 22 2a 43 75 73 74 6f |r-groups| "*Custo|
|00005370| 6d 69 7a 65 20 41 70 72 | 6f 70 6f 73 2a 22 5d 20 |mize Apr|opos*"] |
|00005380| 35 20 28 23 24 20 2e 20 | 32 30 35 33 30 29 20 22 |5 (#$ . |20530) "|
|00005390| 73 43 75 73 74 6f 6d 69 | 7a 65 20 72 65 67 65 78 |sCustomi|ze regex|
|000053a0| 70 3a 20 5c 6e 50 22 5d | 29 0a 23 40 31 30 37 20 |p: \nP"]|).#@107 |
|000053b0| 43 75 73 74 6f 6d 69 7a | 65 20 61 6c 6c 20 75 73 |Customiz|e all us|
|000053c0| 65 72 20 6f 70 74 69 6f | 6e 73 20 6d 61 74 63 68 |er optio|ns match|
|000053d0| 69 6e 67 20 52 45 47 45 | 58 50 2e 0a 57 69 74 68 |ing REGE|XP..With|
|000053e0| 20 70 72 65 66 69 78 20 | 61 72 67 2c 20 69 6e 63 | prefix |arg, inc|
|000053f0| 6c 75 64 65 20 6f 70 74 | 69 6f 6e 73 20 77 68 69 |lude opt|ions whi|
|00005400| 63 68 20 61 72 65 20 6e | 6f 74 20 75 73 65 72 2d |ch are n|ot user-|
|00005410| 73 65 74 74 61 62 6c 65 | 2e 1f 0a 28 64 65 66 61 |settable|...(defa|
|00005420| 6c 69 61 73 20 27 63 75 | 73 74 6f 6d 69 7a 65 2d |lias 'cu|stomize-|
|00005430| 61 70 72 6f 70 6f 73 2d | 6f 70 74 69 6f 6e 73 20 |apropos-|options |
|00005440| 23 5b 28 72 65 67 65 78 | 70 20 26 6f 70 74 69 6f |#[(regex|p &optio|
|00005450| 6e 61 6c 20 61 72 67 29 | 20 22 c0 09 5c 6e ae 81 |nal arg)| "..\n..|
|00005460| c3 5c 22 87 22 20 5b 63 | 75 73 74 6f 6d 69 7a 65 |.\"." [c|ustomize|
|00005470| 2d 61 70 72 6f 70 6f 73 | 20 72 65 67 65 78 70 20 |-apropos| regexp |
|00005480| 61 72 67 20 6f 70 74 69 | 6f 6e 73 5d 20 33 20 28 |arg opti|ons] 3 (|
|00005490| 23 24 20 2e 20 32 31 34 | 32 34 29 20 22 73 43 75 |#$ . 214|24) "sCu|
|000054a0| 73 74 6f 6d 69 7a 65 20 | 72 65 67 65 78 70 3a 20 |stomize |regexp: |
|000054b0| 5c 6e 50 22 5d 29 0a 23 | 40 34 33 20 43 75 73 74 |\nP"]).#|@43 Cust|
|000054c0| 6f 6d 69 7a 65 20 61 6c | 6c 20 75 73 65 72 20 66 |omize al|l user f|
|000054d0| 61 63 65 73 20 6d 61 74 | 63 68 69 6e 67 20 52 45 |aces mat|ching RE|
|000054e0| 47 45 58 50 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |GEXP...(|defalias|
|000054f0| 20 27 63 75 73 74 6f 6d | 69 7a 65 2d 61 70 72 6f | 'custom|ize-apro|
|00005500| 70 6f 73 2d 66 61 63 65 | 73 20 23 5b 28 72 65 67 |pos-face|s #[(reg|
|00005510| 65 78 70 29 20 22 c0 09 | c2 5c 22 87 22 20 5b 63 |exp) "..|.\"." [c|
|00005520| 75 73 74 6f 6d 69 7a 65 | 2d 61 70 72 6f 70 6f 73 |ustomize|-apropos|
|00005530| 20 72 65 67 65 78 70 20 | 66 61 63 65 73 5d 20 33 | regexp |faces] 3|
|00005540| 20 28 23 24 20 2e 20 32 | 31 36 39 32 29 20 22 73 | (#$ . 2|1692) "s|
|00005550| 43 75 73 74 6f 6d 69 7a | 65 20 72 65 67 65 78 70 |Customiz|e regexp|
|00005560| 3a 20 5c 6e 22 5d 29 0a | 23 40 34 34 20 43 75 73 |: \n"]).|#@44 Cus|
|00005570| 74 6f 6d 69 7a 65 20 61 | 6c 6c 20 75 73 65 72 20 |tomize a|ll user |
|00005580| 67 72 6f 75 70 73 20 6d | 61 74 63 68 69 6e 67 20 |groups m|atching |
|00005590| 52 45 47 45 58 50 2e 1f | 0a 28 64 65 66 61 6c 69 |REGEXP..|.(defali|
|000055a0| 61 73 20 27 63 75 73 74 | 6f 6d 69 7a 65 2d 61 70 |as 'cust|omize-ap|
|000055b0| 72 6f 70 6f 73 2d 67 72 | 6f 75 70 73 20 23 5b 28 |ropos-gr|oups #[(|
|000055c0| 72 65 67 65 78 70 29 20 | 22 c0 09 c2 5c 22 87 22 |regexp) |"...\"."|
|000055d0| 20 5b 63 75 73 74 6f 6d | 69 7a 65 2d 61 70 72 6f | [custom|ize-apro|
|000055e0| 70 6f 73 20 72 65 67 65 | 78 70 20 67 72 6f 75 70 |pos rege|xp group|
|000055f0| 73 5d 20 33 20 28 23 24 | 20 2e 20 32 31 38 36 39 |s] 3 (#$| . 21869|
|00005600| 29 20 22 73 43 75 73 74 | 6f 6d 69 7a 65 20 72 65 |) "sCust|omize re|
|00005610| 67 65 78 70 3a 20 5c 6e | 22 5d 29 0a 28 63 75 73 |gexp: \n|"]).(cus|
|00005620| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|00005630| 61 62 6c 65 20 27 63 75 | 73 74 6f 6d 2d 62 75 66 |able 'cu|stom-buf|
|00005640| 66 65 72 2d 73 74 79 6c | 65 20 27 27 6c 69 6e 6b |fer-styl|e ''link|
|00005650| 73 20 22 2a 43 6f 6e 74 | 72 6f 6c 20 74 68 65 20 |s "*Cont|rol the |
|00005660| 70 72 65 73 65 6e 74 61 | 74 69 6f 6e 20 73 74 79 |presenta|tion sty|
|00005670| 6c 65 20 66 6f 72 20 63 | 75 73 74 6f 6d 69 7a 61 |le for c|ustomiza|
|00005680| 74 69 6f 6e 20 62 75 66 | 66 65 72 73 2e 5c 6e 54 |tion buf|fers.\nT|
|00005690| 68 65 20 76 61 6c 75 65 | 20 73 68 6f 75 6c 64 20 |he value| should |
|000056a0| 62 65 20 61 20 73 79 6d | 62 6f 6c 2c 20 6f 6e 65 |be a sym|bol, one|
|000056b0| 20 6f 66 3a 5c 6e 5c 6e | 62 72 61 63 6b 65 74 73 | of:\n\n|brackets|
|000056c0| 3a 20 67 72 6f 75 70 73 | 20 6e 65 73 74 20 77 69 |: groups| nest wi|
|000056d0| 74 68 69 6e 20 65 61 63 | 68 20 6f 74 68 65 72 20 |thin eac|h other |
|000056e0| 77 69 74 68 20 62 69 67 | 20 68 6f 72 69 7a 6f 6e |with big| horizon|
|000056f0| 74 61 6c 20 62 72 61 63 | 6b 65 74 73 2e 5c 6e 6c |tal brac|kets.\nl|
|00005700| 69 6e 6b 73 3a 20 67 72 | 6f 75 70 73 20 68 61 76 |inks: gr|oups hav|
|00005710| 65 20 6c 69 6e 6b 73 20 | 74 6f 20 73 75 62 67 72 |e links |to subgr|
|00005720| 6f 75 70 73 2e 22 20 3a | 74 79 70 65 20 27 28 72 |oups." :|type '(r|
|00005730| 61 64 69 6f 20 28 63 6f | 6e 73 74 20 3a 74 61 67 |adio (co|nst :tag|
|00005740| 20 22 62 72 61 63 6b 65 | 74 73 3a 20 47 72 6f 75 | "bracke|ts: Grou|
|00005750| 70 73 20 6e 65 73 74 20 | 77 69 74 68 69 6e 20 65 |ps nest |within e|
|00005760| 61 63 68 20 6f 74 68 65 | 72 73 22 20 62 72 61 63 |ach othe|rs" brac|
|00005770| 6b 65 74 73 29 20 28 63 | 6f 6e 73 74 20 3a 74 61 |kets) (c|onst :ta|
|00005780| 67 20 22 6c 69 6e 6b 73 | 3a 20 47 72 6f 75 70 20 |g "links|: Group |
|00005790| 68 61 76 65 20 6c 69 6e | 6b 73 20 74 6f 20 73 75 |have lin|ks to su|
|000057a0| 62 67 72 6f 75 70 73 22 | 20 6c 69 6e 6b 73 29 29 |bgroups"| links))|
|000057b0| 20 3a 67 72 6f 75 70 20 | 27 63 75 73 74 6f 6d 2d | :group |'custom-|
|000057c0| 62 75 66 66 65 72 29 0a | 28 63 75 73 74 6f 6d 2d |buffer).|(custom-|
|000057d0| 64 65 63 6c 61 72 65 2d | 76 61 72 69 61 62 6c 65 |declare-|variable|
|000057e0| 20 27 63 75 73 74 6f 6d | 2d 62 75 66 66 65 72 2d | 'custom|-buffer-|
|000057f0| 64 6f 6e 65 2d 66 75 6e | 63 74 69 6f 6e 20 27 27 |done-fun|ction ''|
|00005800| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 20 22 2a 46 75 |kill-buf|fer "*Fu|
|00005810| 6e 63 74 69 6f 6e 20 74 | 6f 20 62 65 20 75 73 65 |nction t|o be use|
|00005820| 64 20 74 6f 20 72 65 6d | 6f 76 65 20 74 68 65 20 |d to rem|ove the |
|00005830| 62 75 66 66 65 72 20 77 | 68 65 6e 20 74 68 65 20 |buffer w|hen the |
|00005840| 75 73 65 72 20 69 73 20 | 64 6f 6e 65 20 77 69 74 |user is |done wit|
|00005850| 68 20 69 74 2e 5c 6e 43 | 68 6f 69 63 65 73 20 69 |h it.\nC|hoices i|
|00005860| 6e 63 6c 75 64 65 20 60 | 6b 69 6c 6c 2d 62 75 66 |nclude `|kill-buf|
|00005870| 66 65 72 27 20 28 74 68 | 65 20 64 65 66 61 75 6c |fer' (th|e defaul|
|00005880| 74 29 20 61 6e 64 20 60 | 62 75 72 79 2d 62 75 66 |t) and `|bury-buf|
|00005890| 66 65 72 27 2e 5c 6e 54 | 68 65 20 66 75 6e 63 74 |fer'.\nT|he funct|
|000058a0| 69 6f 6e 20 77 69 6c 6c | 20 62 65 20 63 61 6c 6c |ion will| be call|
|000058b0| 65 64 20 77 69 74 68 20 | 6f 6e 65 20 61 72 67 75 |ed with |one argu|
|000058c0| 6d 65 6e 74 2c 20 74 68 | 65 20 62 75 66 66 65 72 |ment, th|e buffer|
|000058d0| 20 74 6f 20 72 65 6d 6f | 76 65 2e 22 20 3a 74 79 | to remo|ve." :ty|
|000058e0| 70 65 20 27 28 72 61 64 | 69 6f 20 28 66 75 6e 63 |pe '(rad|io (func|
|000058f0| 74 69 6f 6e 2d 69 74 65 | 6d 20 6b 69 6c 6c 2d 62 |tion-ite|m kill-b|
|00005900| 75 66 66 65 72 29 20 28 | 66 75 6e 63 74 69 6f 6e |uffer) (|function|
|00005910| 2d 69 74 65 6d 20 62 75 | 72 79 2d 62 75 66 66 65 |-item bu|ry-buffe|
|00005920| 72 29 20 28 66 75 6e 63 | 74 69 6f 6e 20 3a 74 61 |r) (func|tion :ta|
|00005930| 67 20 22 4f 74 68 65 72 | 22 20 6e 69 6c 29 29 20 |g "Other|" nil)) |
|00005940| 3a 67 72 6f 75 70 20 27 | 63 75 73 74 6f 6d 2d 62 |:group '|custom-b|
|00005950| 75 66 66 65 72 29 0a 28 | 63 75 73 74 6f 6d 2d 64 |uffer).(|custom-d|
|00005960| 65 63 6c 61 72 65 2d 76 | 61 72 69 61 62 6c 65 20 |eclare-v|ariable |
|00005970| 27 63 75 73 74 6f 6d 2d | 62 75 66 66 65 72 2d 69 |'custom-|buffer-i|
|00005980| 6e 64 65 6e 74 20 27 33 | 20 22 4e 75 6d 62 65 72 |ndent '3| "Number|
|00005990| 20 6f 66 20 73 70 61 63 | 65 73 20 74 6f 20 69 6e | of spac|es to in|
|000059a0| 64 65 6e 74 20 6e 65 73 | 74 65 64 20 67 72 6f 75 |dent nes|ted grou|
|000059b0| 70 73 2e 22 20 3a 74 79 | 70 65 20 27 69 6e 74 65 |ps." :ty|pe 'inte|
|000059c0| 67 65 72 20 3a 67 72 6f | 75 70 20 27 63 75 73 74 |ger :gro|up 'cust|
|000059d0| 6f 6d 2d 62 75 66 66 65 | 72 29 0a 23 40 32 32 37 |om-buffe|r).#@227|
|000059e0| 20 43 72 65 61 74 65 20 | 61 20 62 75 66 66 65 72 | Create |a buffer|
|000059f0| 20 63 6f 6e 74 61 69 6e | 69 6e 67 20 4f 50 54 49 | contain|ing OPTI|
|00005a00| 4f 4e 53 2e 0a 4f 70 74 | 69 6f 6e 61 6c 20 4e 41 |ONS..Opt|ional NA|
|00005a10| 4d 45 20 69 73 20 74 68 | 65 20 6e 61 6d 65 20 6f |ME is th|e name o|
|00005a20| 66 20 74 68 65 20 62 75 | 66 66 65 72 2e 0a 4f 50 |f the bu|ffer..OP|
|00005a30| 54 49 4f 4e 53 20 73 68 | 6f 75 6c 64 20 62 65 20 |TIONS sh|ould be |
|00005a40| 61 6e 20 61 6c 69 73 74 | 20 6f 66 20 74 68 65 20 |an alist| of the |
|00005a50| 66 6f 72 6d 20 28 28 53 | 59 4d 42 4f 4c 20 57 49 |form ((S|YMBOL WI|
|00005a60| 44 47 45 54 29 2e 2e 2e | 29 2c 20 77 68 65 72 65 |DGET)...|), where|
|00005a70| 0a 53 59 4d 42 4f 4c 20 | 69 73 20 61 20 63 75 73 |.SYMBOL |is a cus|
|00005a80| 74 6f 6d 69 7a 61 74 69 | 6f 6e 20 6f 70 74 69 6f |tomizati|on optio|
|00005a90| 6e 2c 20 61 6e 64 20 57 | 49 44 47 45 54 20 69 73 |n, and W|IDGET is|
|00005aa0| 20 61 20 77 69 64 67 65 | 74 20 66 6f 72 20 65 64 | a widge|t for ed|
|00005ab0| 69 74 69 6e 67 0a 74 68 | 61 74 20 6f 70 74 69 6f |iting.th|at optio|
|00005ac0| 6e 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |n...(def|alias 'c|
|00005ad0| 75 73 74 6f 6d 2d 62 75 | 66 66 65 72 2d 63 72 65 |ustom-bu|ffer-cre|
|00005ae0| 61 74 65 20 23 5b 28 6f | 70 74 69 6f 6e 73 20 26 |ate #[(o|ptions &|
|00005af0| 6f 70 74 69 6f 6e 61 6c | 20 6e 61 6d 65 20 64 65 |optional| name de|
|00005b00| 73 63 72 69 70 74 69 6f | 6e 29 20 22 08 ac 82 c1 |scriptio|n) "....|
|00005b10| 10 c2 c3 08 21 21 88 c4 | c3 08 21 21 88 c5 0e 06 |....!!..|..!!....|
|00005b20| 0e 07 5c 22 87 22 20 5b | 6e 61 6d 65 20 22 2a 43 |..\"." [|name "*C|
|00005b30| 75 73 74 6f 6d 69 7a 61 | 74 69 6f 6e 2a 22 20 6b |ustomiza|tion*" k|
|00005b40| 69 6c 6c 2d 62 75 66 66 | 65 72 20 67 65 74 2d 62 |ill-buff|er get-b|
|00005b50| 75 66 66 65 72 2d 63 72 | 65 61 74 65 20 73 77 69 |uffer-cr|eate swi|
|00005b60| 74 63 68 2d 74 6f 2d 62 | 75 66 66 65 72 20 63 75 |tch-to-b|uffer cu|
|00005b70| 73 74 6f 6d 2d 62 75 66 | 66 65 72 2d 63 72 65 61 |stom-buf|fer-crea|
|00005b80| 74 65 2d 69 6e 74 65 72 | 6e 61 6c 20 6f 70 74 69 |te-inter|nal opti|
|00005b90| 6f 6e 73 20 64 65 73 63 | 72 69 70 74 69 6f 6e 5d |ons desc|ription]|
|00005ba0| 20 33 20 28 23 24 20 2e | 20 32 33 30 30 39 29 5d | 3 (#$ .| 23009)]|
|00005bb0| 29 0a 23 40 32 32 37 20 | 43 72 65 61 74 65 20 61 |).#@227 |Create a|
|00005bc0| 20 62 75 66 66 65 72 20 | 63 6f 6e 74 61 69 6e 69 | buffer |containi|
|00005bd0| 6e 67 20 4f 50 54 49 4f | 4e 53 2e 0a 4f 70 74 69 |ng OPTIO|NS..Opti|
|00005be0| 6f 6e 61 6c 20 4e 41 4d | 45 20 69 73 20 74 68 65 |onal NAM|E is the|
|00005bf0| 20 6e 61 6d 65 20 6f 66 | 20 74 68 65 20 62 75 66 | name of| the buf|
|00005c00| 66 65 72 2e 0a 4f 50 54 | 49 4f 4e 53 20 73 68 6f |fer..OPT|IONS sho|
|00005c10| 75 6c 64 20 62 65 20 61 | 6e 20 61 6c 69 73 74 20 |uld be a|n alist |
|00005c20| 6f 66 20 74 68 65 20 66 | 6f 72 6d 20 28 28 53 59 |of the f|orm ((SY|
|00005c30| 4d 42 4f 4c 20 57 49 44 | 47 45 54 29 2e 2e 2e 29 |MBOL WID|GET)...)|
|00005c40| 2c 20 77 68 65 72 65 0a | 53 59 4d 42 4f 4c 20 69 |, where.|SYMBOL i|
|00005c50| 73 20 61 20 63 75 73 74 | 6f 6d 69 7a 61 74 69 6f |s a cust|omizatio|
|00005c60| 6e 20 6f 70 74 69 6f 6e | 2c 20 61 6e 64 20 57 49 |n option|, and WI|
|00005c70| 44 47 45 54 20 69 73 20 | 61 20 77 69 64 67 65 74 |DGET is |a widget|
|00005c80| 20 66 6f 72 20 65 64 69 | 74 69 6e 67 0a 74 68 61 | for edi|ting.tha|
|00005c90| 74 20 6f 70 74 69 6f 6e | 2e 1f 0a 28 64 65 66 61 |t option|...(defa|
|00005ca0| 6c 69 61 73 20 27 63 75 | 73 74 6f 6d 2d 62 75 66 |lias 'cu|stom-buf|
|00005cb0| 66 65 72 2d 63 72 65 61 | 74 65 2d 6f 74 68 65 72 |fer-crea|te-other|
|00005cc0| 2d 77 69 6e 64 6f 77 20 | 23 5b 28 6f 70 74 69 6f |-window |#[(optio|
|00005cd0| 6e 73 20 26 6f 70 74 69 | 6f 6e 61 6c 20 6e 61 6d |ns &opti|onal nam|
|00005ce0| 65 20 64 65 73 63 72 69 | 70 74 69 6f 6e 29 20 22 |e descri|ption) "|
|00005cf0| 08 ac 82 c1 10 c2 c3 08 | 21 21 88 c4 20 1d c6 c3 |........|!!.. ...|
|00005d00| 08 21 21 88 c7 0e 08 0e | 09 5c 22 88 ca 0d 21 29 |.!!.....|.\"...!)|
|00005d10| 87 22 20 5b 6e 61 6d 65 | 20 22 2a 43 75 73 74 6f |." [name| "*Custo|
|00005d20| 6d 69 7a 61 74 69 6f 6e | 2a 22 20 6b 69 6c 6c 2d |mization|*" kill-|
|00005d30| 62 75 66 66 65 72 20 67 | 65 74 2d 62 75 66 66 65 |buffer g|et-buffe|
|00005d40| 72 2d 63 72 65 61 74 65 | 20 73 65 6c 65 63 74 65 |r-create| selecte|
|00005d50| 64 2d 77 69 6e 64 6f 77 | 20 77 69 6e 64 6f 77 20 |d-window| window |
|00005d60| 73 77 69 74 63 68 2d 74 | 6f 2d 62 75 66 66 65 72 |switch-t|o-buffer|
|00005d70| 2d 6f 74 68 65 72 2d 77 | 69 6e 64 6f 77 20 63 75 |-other-w|indow cu|
|00005d80| 73 74 6f 6d 2d 62 75 66 | 66 65 72 2d 63 72 65 61 |stom-buf|fer-crea|
|00005d90| 74 65 2d 69 6e 74 65 72 | 6e 61 6c 20 6f 70 74 69 |te-inter|nal opti|
|00005da0| 6f 6e 73 20 64 65 73 63 | 72 69 70 74 69 6f 6e 20 |ons desc|ription |
|00005db0| 73 65 6c 65 63 74 2d 77 | 69 6e 64 6f 77 5d 20 33 |select-w|indow] 3|
|00005dc0| 20 28 23 24 20 2e 20 32 | 33 34 38 30 29 5d 29 0a | (#$ . 2|3480)]).|
|00005dd0| 28 63 75 73 74 6f 6d 2d | 64 65 63 6c 61 72 65 2d |(custom-|declare-|
|00005de0| 76 61 72 69 61 62 6c 65 | 20 27 63 75 73 74 6f 6d |variable| 'custom|
|00005df0| 2d 72 65 73 65 74 2d 62 | 75 74 74 6f 6e 2d 6d 65 |-reset-b|utton-me|
|00005e00| 6e 75 20 27 74 20 22 49 | 66 20 6e 6f 6e 2d 6e 69 |nu 't "I|f non-ni|
|00005e10| 6c 2c 20 6f 6e 6c 79 20 | 73 68 6f 77 20 61 20 73 |l, only |show a s|
|00005e20| 69 6e 67 6c 65 20 72 65 | 73 65 74 20 62 75 74 74 |ingle re|set butt|
|00005e30| 6f 6e 20 69 6e 20 63 75 | 73 74 6f 6d 69 7a 65 20 |on in cu|stomize |
|00005e40| 62 75 66 66 65 72 73 2e | 5c 6e 54 68 69 73 20 62 |buffers.|\nThis b|
|00005e50| 75 74 74 6f 6e 20 77 69 | 6c 6c 20 68 61 76 65 20 |utton wi|ll have |
|00005e60| 61 20 6d 65 6e 75 20 77 | 69 74 68 20 61 6c 6c 20 |a menu w|ith all |
|00005e70| 74 68 72 65 65 20 72 65 | 73 65 74 20 6f 70 65 72 |three re|set oper|
|00005e80| 61 74 69 6f 6e 73 2e 22 | 20 3a 74 79 70 65 20 27 |ations."| :type '|
|00005e90| 62 6f 6f 6c 65 61 6e 20 | 3a 67 72 6f 75 70 20 27 |boolean |:group '|
|00005ea0| 63 75 73 74 6f 6d 2d 62 | 75 66 66 65 72 29 0a 28 |custom-b|uffer).(|
|00005eb0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 11 c1 5c 6e |byte-cod|e "...\n|
|00005ec0| 42 12 c0 87 22 20 5b 35 | 20 63 75 73 74 6f 6d 2d |B..." [5| custom-|
|00005ed0| 73 6b 69 70 2d 6d 65 73 | 73 61 67 65 73 20 63 75 |skip-mes|sages cu|
|00005ee0| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 5d |rrent-lo|ad-list]|
|00005ef0| 20 32 29 0a 23 40 31 30 | 34 20 52 65 6d 6f 76 65 | 2).#@10|4 Remove|
|00005f00| 20 63 75 72 72 65 6e 74 | 20 62 75 66 66 65 72 2e | current| buffer.|
|00005f10| 0a 54 68 69 73 20 77 6f | 72 6b 73 20 62 79 20 63 |.This wo|rks by c|
|00005f20| 61 6c 6c 69 6e 67 20 74 | 68 65 20 66 75 6e 63 74 |alling t|he funct|
|00005f30| 69 6f 6e 20 73 70 65 63 | 69 66 69 65 64 20 62 79 |ion spec|ified by|
|00005f40| 0a 20 60 63 75 73 74 6f | 6d 2d 62 75 66 66 65 72 |. `custo|m-buffer|
|00005f50| 2d 64 6f 6e 65 2d 66 75 | 6e 63 74 69 6f 6e 27 2e |-done-fu|nction'.|
|00005f60| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 43 75 73 |..(defal|ias 'Cus|
|00005f70| 74 6f 6d 2d 62 75 66 66 | 65 72 2d 64 6f 6e 65 20 |tom-buff|er-done |
|00005f80| 23 5b 6e 69 6c 20 22 08 | 70 21 87 22 20 5b 63 75 |#[nil ".|p!." [cu|
|00005f90| 73 74 6f 6d 2d 62 75 66 | 66 65 72 2d 64 6f 6e 65 |stom-buf|fer-done|
|00005fa0| 2d 66 75 6e 63 74 69 6f | 6e 5d 20 32 20 28 23 24 |-functio|n] 2 (#$|
|00005fb0| 20 2e 20 32 34 33 31 34 | 29 20 6e 69 6c 5d 29 0a | . 24314|) nil]).|
|00005fc0| 28 64 65 66 61 6c 69 61 | 73 20 27 63 75 73 74 6f |(defalia|s 'custo|
|00005fd0| 6d 2d 62 75 66 66 65 72 | 2d 63 72 65 61 74 65 2d |m-buffer|-create-|
|00005fe0| 69 6e 74 65 72 6e 61 6c | 20 23 5b 28 6f 70 74 69 |internal| #[(opti|
|00005ff0| 6f 6e 73 20 26 6f 70 74 | 69 6f 6e 61 6c 20 64 65 |ons &opt|ional de|
|00006000| 73 63 72 69 70 74 69 6f | 6e 29 20 22 c0 c1 21 88 |scriptio|n) "..!.|
|00006010| c2 20 88 c3 c4 21 88 0d | ab 84 c3 0d 21 88 c3 c6 |. ...!..|....!...|
|00006020| 21 88 c7 c8 c9 ca cb cc | cd 26 06 88 c3 ce 21 88 |!.......|.&....!.|
|00006030| c0 cf 21 88 c3 d0 21 88 | c7 d1 c9 d2 d3 d4 cb d5 |..!...!.|........|
|00006040| d6 d7 26 09 88 c3 d8 21 | 88 c7 d1 c9 d9 d3 da cb |..&....!|........|
|00006050| db d6 dc 26 09 88 0e 1d | ab 95 c3 d8 21 88 c7 d1 |...&....|....!...|
|00006060| c9 de d3 df cb e0 e1 e2 | d6 e3 26 0b 88 aa ad c3 |........|..&.....|
|00006070| d8 21 88 c7 d1 c9 de cb | e4 d6 e5 26 07 88 c3 d8 |.!......|...&....|
|00006080| 21 88 c7 d1 c9 e6 cb e7 | d6 e8 26 07 88 c3 d8 21 |!.......|..&....!|
|00006090| 88 c7 d1 c9 e9 cb ea d6 | eb 26 07 88 c3 ec 21 88 |........|.&....!.|
|000060a0| c7 d1 c9 ed d3 ee cb ef | d6 f0 26 09 88 c3 f1 21 |........|..&....!|
|000060b0| 88 c0 f2 21 88 0e 33 47 | f4 55 ab 87 f5 f6 0e 33 |...!..3G|.U.....3|
|000060c0| 5c 22 aa 8e f7 0e 33 47 | 1e 38 1e 39 f5 fa 0e 33 |\"....3G|.8.9...3|
|000060d0| 5c 22 2a 16 3b 68 fc 61 | ac 84 c3 fd 21 88 fe ff |\"*.;h.a|....!...|
|000060e0| 81 40 00 81 41 00 81 42 | 00 5c 22 5c 22 88 0e 43 |.@..A..B|.\"\"..C|
|000060f0| 81 44 00 61 ac 8a 81 45 | 00 81 46 00 0e 3b 5c 22 |.D.a...E|..F..;\"|
|00006100| 88 c0 81 47 00 21 88 81 | 48 00 20 88 65 62 88 c0 |...G.!..|H. .eb..|
|00006110| 81 49 00 21 87 22 20 5b | 6d 65 73 73 61 67 65 20 |.I.!." [|message |
|00006120| 22 43 72 65 61 74 69 6e | 67 20 63 75 73 74 6f 6d |"Creatin|g custom|
|00006130| 69 7a 61 74 69 6f 6e 20 | 62 75 66 66 65 72 2e 2e |ization |buffer..|
|00006140| 2e 22 20 63 75 73 74 6f | 6d 2d 6d 6f 64 65 20 77 |." custo|m-mode w|
|00006150| 69 64 67 65 74 2d 69 6e | 73 65 72 74 20 22 54 68 |idget-in|sert "Th|
|00006160| 69 73 20 69 73 20 61 20 | 63 75 73 74 6f 6d 69 7a |is is a |customiz|
|00006170| 61 74 69 6f 6e 20 62 75 | 66 66 65 72 22 20 64 65 |ation bu|ffer" de|
|00006180| 73 63 72 69 70 74 69 6f | 6e 20 22 2e 5c 6e 54 79 |scriptio|n ".\nTy|
|00006190| 70 65 20 52 45 54 20 6f | 72 20 63 6c 69 63 6b 20 |pe RET o|r click |
|000061a0| 62 75 74 74 6f 6e 32 20 | 6f 6e 20 61 6e 20 61 63 |button2 |on an ac|
|000061b0| 74 69 76 65 20 66 69 65 | 6c 64 20 74 6f 20 69 6e |tive fie|ld to in|
|000061c0| 76 6f 6b 65 20 69 74 73 | 20 61 63 74 69 6f 6e 2e |voke its| action.|
|000061d0| 5c 6e 49 6e 76 6f 6b 65 | 20 22 20 77 69 64 67 65 |\nInvoke| " widge|
|000061e0| 74 2d 63 72 65 61 74 65 | 20 69 6e 66 6f 2d 6c 69 |t-create| info-li|
|000061f0| 6e 6b 20 3a 74 61 67 20 | 22 48 65 6c 70 22 20 3a |nk :tag |"Help" :|
|00006200| 68 65 6c 70 2d 65 63 68 | 6f 20 22 52 65 61 64 20 |help-ech|o "Read |
|00006210| 74 68 65 20 6f 6e 6c 69 | 6e 65 20 68 65 6c 70 22 |the onli|ne help"|
|00006220| 20 22 28 58 45 6d 61 63 | 73 29 45 61 73 79 20 43 | "(XEmac|s)Easy C|
|00006230| 75 73 74 6f 6d 69 7a 61 | 74 69 6f 6e 22 20 22 20 |ustomiza|tion" " |
|00006240| 66 6f 72 20 6d 6f 72 65 | 20 69 6e 66 6f 72 6d 61 |for more| informa|
|00006250| 74 69 6f 6e 2e 5c 6e 5c | 6e 22 20 22 43 72 65 61 |tion.\n\|n" "Crea|
|00006260| 74 69 6e 67 20 63 75 73 | 74 6f 6d 69 7a 61 74 69 |ting cus|tomizati|
|00006270| 6f 6e 20 62 75 74 74 6f | 6e 73 2e 2e 2e 22 20 22 |on butto|ns..." "|
|00006280| 4f 70 65 72 61 74 65 20 | 6f 6e 20 65 76 65 72 79 |Operate |on every|
|00006290| 74 68 69 6e 67 20 69 6e | 20 74 68 69 73 20 62 75 |thing in| this bu|
|000062a0| 66 66 65 72 3a 5c 6e 20 | 22 20 70 75 73 68 2d 62 |ffer:\n |" push-b|
|000062b0| 75 74 74 6f 6e 20 22 53 | 65 74 22 20 3a 74 61 67 |utton "S|et" :tag|
|000062c0| 2d 67 6c 79 70 68 20 28 | 22 73 65 74 2d 75 70 22 |-glyph (|"set-up"|
|000062d0| 20 22 73 65 74 2d 64 6f | 77 6e 22 29 20 22 4d 61 | "set-do|wn") "Ma|
|000062e0| 6b 65 20 79 6f 75 72 20 | 65 64 69 74 69 6e 67 20 |ke your |editing |
|000062f0| 69 6e 20 74 68 69 73 20 | 62 75 66 66 65 72 20 74 |in this |buffer t|
|00006300| 61 6b 65 20 65 66 66 65 | 63 74 20 66 6f 72 20 74 |ake effe|ct for t|
|00006310| 68 69 73 20 73 65 73 73 | 69 6f 6e 22 20 3a 61 63 |his sess|ion" :ac|
|00006320| 74 69 6f 6e 20 23 5b 28 | 77 69 64 67 65 74 20 26 |tion #[(|widget &|
|00006330| 6f 70 74 69 6f 6e 61 6c | 20 65 76 65 6e 74 29 20 |optional| event) |
|00006340| 22 c0 20 87 22 20 5b 43 | 75 73 74 6f 6d 2d 73 65 |". ." [C|ustom-se|
|00006350| 74 5d 20 31 5d 20 22 20 | 22 20 22 53 61 76 65 22 |t] 1] " |" "Save"|
|00006360| 20 28 22 73 61 76 65 2d | 75 70 22 20 22 73 61 76 | ("save-|up" "sav|
|00006370| 65 2d 64 6f 77 6e 22 29 | 20 22 4d 61 6b 65 20 79 |e-down")| "Make y|
|00006380| 6f 75 72 20 65 64 69 74 | 69 6e 67 20 69 6e 20 74 |our edit|ing in t|
|00006390| 68 69 73 20 62 75 66 66 | 65 72 20 74 61 6b 65 20 |his buff|er take |
|000063a0| 65 66 66 65 63 74 20 66 | 6f 72 20 66 75 74 75 72 |effect f|or futur|
|000063b0| 65 20 45 6d 61 63 73 20 | 73 65 73 73 69 6f 6e 73 |e Emacs |sessions|
|000063c0| 22 20 23 5b 28 77 69 64 | 67 65 74 20 26 6f 70 74 |" #[(wid|get &opt|
|000063d0| 69 6f 6e 61 6c 20 65 76 | 65 6e 74 29 20 22 c0 20 |ional ev|ent) ". |
|000063e0| 87 22 20 5b 43 75 73 74 | 6f 6d 2d 73 61 76 65 5d |." [Cust|om-save]|
|000063f0| 20 31 5d 20 63 75 73 74 | 6f 6d 2d 72 65 73 65 74 | 1] cust|om-reset|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
